|
 You won't believe how difficult it really is! 
You have to do some COM Interop to clear out the History. You can't just delete the files to do this.
I'll put together a little example when I get home tonight.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
OK... I've got an example working. It's based on the work by goblins in this[^] article here on CodeProject. The code to actually make the call looks something like this:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim urlHistory As New UrlHistoryClass
Dim obj As IUrlHistoryStg2 = CType(urlHistory, IUrlHistoryStg2)
obj.ClearHistory()
Marshal.ReleaseComObject(obj)
End Sub
You have to make the call TWICE. Once to clear out the History and a second time to clear out the Cached Files History.
The code to make the call HAPPEN looks like this (in C#, I don't have the time to convert it to VB.NET):
using System;
using System.Runtime.InteropServices;
using System.Collections;
namespace Obsolete
{
public enum STATURL_QUERYFLAGS : uint
{
STATURL_QUERYFLAG_ISCACHED = 0x00010000,
STATURL_QUERYFLAG_NOURL = 0x00020000,
STATURL_QUERYFLAG_NOTITLE = 0x00040000,
STATURL_QUERYFLAG_TOPLEVEL = 0x00080000,
}
public enum STATURLFLAGS : uint
{
STATURLFLAG_ISCACHED = 0x00000001,
STATURLFLAG_ISTOPLEVEL = 0x00000002,
}
[StructLayout(LayoutKind.Sequential)]
public struct STATURL
{
public int cbSize;
[MarshalAs(UnmanagedType.LPWStr)] public string pwcsUrl;
[MarshalAs(UnmanagedType.LPWStr)] public string pwcsTitle;
public FILETIME ftLastVisited;
public FILETIME ftLastUpdated;
public FILETIME ftExpires;
public STATURLFLAGS dwFlags;
}
[StructLayout(LayoutKind.Sequential)]
public struct UUID
{
public int Data1;
public short Data2;
public short Data3;
public byte[] Data4;
}
[ComImport]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
[Guid("3C374A42-BAE4-11CF-BF7D-00AA006946EE")]
public interface IEnumSTATURL
{
void Next(int celt, ref STATURL rgelt, out int pceltFetched);
void Skip(int celt);
void Reset();
void Clone(out IEnumSTATURL ppenum);
void SetFilter([MarshalAs(UnmanagedType.LPWStr)] string poszFilter, STATURLFLAGS dwFlags);
}
[ComImport]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
[Guid("3C374A41-BAE4-11CF-BF7D-00AA006946EE")]
public interface IUrlHistoryStg
{
void AddUrl(string pocsUrl, string pocsTitle, STATURLFLAGS dwFlags);
void DeleteUrl(string pocsUrl, int dwFlags);
void QueryUrl ([MarshalAs(UnmanagedType.LPWStr)] string pocsUrl , int dwFlags , ref STATURL lpSTATURL );
void BindToObject ([In] string pocsUrl, [In] UUID riid, IntPtr ppvOut);
object EnumUrls{[return: MarshalAs(UnmanagedType.IUnknown)] get;}
}
[ComImport]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
[Guid("AFA0DC11-C313-11D0-831A-00C04FD5AE38")]
public interface IUrlHistoryStg2 : IUrlHistoryStg
{
new void AddUrl(string pocsUrl, string pocsTitle, STATURLFLAGS dwFlags);
new void DeleteUrl(string pocsUrl, int dwFlags);
new void QueryUrl ([MarshalAs(UnmanagedType.LPWStr)] string pocsUrl , int dwFlags , ref STATURL lpSTATURL );
new void BindToObject ([In] string pocsUrl, [In] UUID riid, IntPtr ppvOut);
new object EnumUrls{[return: MarshalAs(UnmanagedType.IUnknown)] get;}
void AddUrlAndNotify(string pocsUrl, string pocsTitle, int dwFlags, int fWriteHistory, object poctNotify, object punkISFolder);
void ClearHistory();
}
[ComImport]
[Guid("3C374A40-BAE4-11CF-BF7D-00AA006946EE")]
public class UrlHistoryClass
{
}
}
That's alot of work to clear out the History and Temporary Internet Files.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
And Dave Kreskowiak strikes again! 
Nice work.
Aaron Eldreth
TheCollective4.com
My Articles
While much is too strange to be believed,
Nothing is too strange to have happened.
- T. Hardy
|
|
|
|
|
I have used a C# to vb.net code converter, and afterwards it looked like this:
Imports System<br />
Imports System.Runtime.InteropServices<br />
Imports System.Collections <br />
Namespace Obsolete<br />
Public Enum STATURL_QUERYFLAGS As System.UInt32<br />
STATURL_QUERYFLAG_ISCACHED = 0x00010000<br />
STATURL_QUERYFLAG_NOURL = 0x00020000<br />
STATURL_QUERYFLAG_NOTITLE = 0x00040000<br />
STATURL_QUERYFLAG_TOPLEVEL = 0x00080000<br />
End Enum<br />
Public Enum STATURLFLAGS As System.UInt32<br />
STATURLFLAG_ISCACHED = 0x00000001<br />
STATURLFLAG_ISTOPLEVEL = 0x00000002<br />
End Enum<br />
<br />
'Contains statistics about a URL<br />
<StructLayout(LayoutKind.Sequential)> _ <br />
Public Structure STATURL<br />
Public cbSize As Integer<br />
<MarshalAs(UnmanagedType.LPWStr)) Public String pwcsUrl<br />
<MarshalAs(UnmanagedType.LPWStr)) Public String pwcsTitle<br />
Public ftLastVisited As FILETIME<br />
Public ftLastUpdated As FILETIME<br />
Public ftExpires As FILETIME<br />
Public dwFlags As STATURLFLAGS<br />
End Structure<br />
<br />
<StructLayout(LayoutKind.Sequential)> _ <br />
Public Structure UUID<br />
Public Data1 As Integer<br />
Public Data2 As Short<br />
Public Data3 As Short<br />
Public Data4() As Byte<br />
End Structure<br />
<br />
'Enumerates the cached URLs<br />
<ComImport> _ <br />
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _ <br />
<Guid("3C374A42-BAE4-11CF-BF7D-00AA006946EE")> _ <br />
Public Interface IEnumSTATURL<br />
void Next(Integer celt, STATURL rgelt, Integer pceltFetched)<br />
void Skip(Integer celt)<br />
Dim Reset() As void<br />
void Clone( IEnumSTATURL ppEnum) <br />
void Clone( IEnumSTATURL ppenum)<br />
End Enum<br />
void SetFilter((MarshalAs(UnmanagedType.LPWStr)) String poszFilter, STATURLFLAGS dwFlags)<br />
End Interface<br />
<ComImport> _ <br />
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _ <br />
<Guid("3C374A41-BAE4-11CF-BF7D-00AA006946EE")> _ <br />
Public Interface IUrlHistoryStg<br />
void AddUrl(String pocsUrl, String pocsTitle, STATURLFLAGS dwFlags)<br />
void DeleteUrl(String pocsUrl, Integer dwFlags)<br />
void QueryUrl ((MarshalAs(UnmanagedType.LPWStr)) String pocsUrl , Integer dwFlags , STATURL lpSTATURL)<br />
void BindToObject ((In) String pocsUrl, (In) UUID riid, IntPtr ppvOut)<br />
Object EnumUrls<br />
{<br />
<Return: MarshalAs(UnmanagedType.IUnknown)) get<br />
<br />
}<br />
End Interface<br />
<br />
<ComImport> _ <br />
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _ <br />
(Guid("AFA0DC11-C313-11D0-831A-00C04FD5AE38")> _ <br />
Public Interface IUrlHistoryStg2<br />
Implements IUrlHistoryStg <br />
New void AddUrl(String pocsUrl, String pocsTitle, STATURLFLAGS dwFlags)<br />
New void DeleteUrl(String pocsUrl, Integer dwFlags)<br />
New void QueryUrl ((MarshalAs(UnmanagedType.LPWStr)) String pocsUrl , Integer dwFlags , STATURL lpSTATURL)<br />
New void BindToObject ((In) String pocsUrl, (In) UUID riid, IntPtr ppvOut)<br />
Shadows Property EnumUrls() As Object<br />
End Property<br />
void AddUrlAndNotify(String pocsUrl, String pocsTitle, Integer dwFlags, Integer fWriteHistory, Object poctNotify, Object punkISFolder)<br />
Dim ClearHistory() As void<br />
End Interface<br />
<br />
'UrlHistory class <br />
(ComImport> _ <br />
(Guid("3C374A40-BAE4-11CF-BF7D-00AA006946EE")> _ <br />
Public Class UrlHistoryClass<br />
End Class<br />
End Namespace>
It wasen't very accurate when i compiled it it threw about 13 different errors, i guess the converter couldent convert it completley... I know this is asking a lot but could someone translate it for me? I dont know any C# If not i am sure i can find a way to convert it completely
Thanks.
|
|
|
|
|
I'm experiencing a problem w/ my application written in VB.Net. My application is suppose to open Excel, but when I try to create an object using CreateObject function it throws an exception, Specified cast is not valid.
If I declare the xlApp as Excel.ApplicationClass it works, but a get the same problem, Specified cast is not valid, on the next line, xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook).
I'm using Excel 2000 ver 9.02 and the OS is XP professional.
I decided to load the latest version InteropServices, but I'm not using Office 2002. Even though it's loaded into the system the properties for the Excel COM object is pointing to the old version of Excel 2000.
Any help would be appreciated.
A sample of the code is as follows:
Imports System.Runtime.InteropServices
Imports Excel
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
|
|
|
|
|
I'm assuming you also went into Projects-->Add References-->COM-->Microsoft Excel X.X Object Library (where X.X = your version of Excel).
Also, I have had some odd problems with interops. Unless I used the full domain names, they wouldn't work.
<br />
Dim xlApp As Microsoft.Office.Interop.Excel.Application<br />
Still coaxing software out of the can after all these years...
|
|
|
|
|
Tanstaafl28,
I figured out the problem. There was a conflicted with the PIA files. I just restalled Microsoft Office. Thanks for your time!!!!
lxhan
|
|
|
|
|
How can I rename an NT user using the ADSI(Active Directory Service Interfaces)? The IADs::SetInfo method can only change user's fullname not rename a user.
|
|
|
|
|
You can do it using the System.DirectoryServices namespace:
Imports System.DirectoryServices
.
.
.
' Allocate a new Directory Entry object and point it
' at the user object we want to rename.
Dim de As New DirectoryEntry("LDAP://whateverPathToUserObject")
' Rename the object and commit the changes to the directory.
de.Rename("myNewUsername")
de.CommitChanges()
' Clean up and destroy the Directory Entry object we created.
de.Close()
de.Dispose()
de = Nothing
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks despite I'm not using .NET platform.With its hint,I worked out the solution.
|
|
|
|
|
Is there a way me to use the classes in System.Configuration in a read/write way. I've looked through the examples and documentation ant it seems that it only supports read-only use. I would like to use this functionality in a Options form that would read and save the configurations for my application. Any Ideas? Is there a write-able equivalent to the AppSettingsReader Class?
|
|
|
|
|
Off the top of my head, I would think it dangerous to allow a system namespace to be read/write, but I'm pretty new to this myself.
This does not keep you from creating your own class though.
Still coaxing software out of the can after all these years...
|
|
|
|
|
Yeah, thought so. I am creating a class using xml though. Thanks.
|
|
|
|
|
|
Great article! Though for my purposes I think it would be better if I create my own class to write dynamic properties. I was hoping to add a feature that will allow addition of new configuration sections and additional attributes. Thanks a lot!!
|
|
|
|
|
How do I access a custom section in a custom section group? I was hoping to have something like this:
<br />
<configuration><br />
<configSections><br />
<sectionGroup name="mySectionGroup"><br />
<section name="mySection" type="System.Configuration.NameValueSectionHandler,System" /><br />
</sectionGroup><br />
</configSections><br />
<br />
<mySectionGroup><br />
<mySection setting1="value1" setting2="value2" /><br />
</mySectionGroup><br />
</configuration><br />
|
|
|
|
|
Like what? Make sure you use the < and > buttons at the botrom of the message box when you post here. Anything in < > characters will be treated like HTML tags and not displayed.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Ok. Sorry about that. After doing some research I got what I wanted. Related question: Can I have multiple sections in a sectionGroup? Like this?
<br />
<?xml version="1.0" encoding="utf-8" ?><br />
<configuration><br />
<configSections><br />
<sectionGroup name="CustomSectionGroup"><br />
<section name="CustomSection" type="System.Configuration.SingleTagSectionHandler" /><br />
<section name="CustomSection2" type="System.Configuration.NameValueSection" /><br />
</sectionGroup><br />
</configSections><br />
<CustomSectionGroup><br />
<CustomSection setting1="value1" setting2="value2" /><br />
<CustomSection2><br />
<add key="key1" value="value1"><br />
<add key="key2" value="value2"><br />
</ CustomSection2><br />
</CustomSectionGroup><br />
</configuration><br />
|
|
|
|
|
Yes, you can. You have to use ConfigurationSettings.GetConfig() to access a custom configuration section. You might want to look at this[^] on MSDN for an example and what the limitions are.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi Everyone
Im a new programmer who has just recently (4mths) have purchased Visual Basic 2003 and about 75% through the Step by Step Visual basic book learning how to use it etc.
Im now looking for ideas, to making a programme on a bitmap of Europe, moving Icons on the map (units) from area to provincial area, with a basic data base, political moves with up to 7 players moving on the internet.
Its the moving the Icons on the Map at the moment is the problem initially. I was thinking of left clicking the unit icon, then right clicking the adjacent area to make the move, but how?
Anyhow I bow to more experienced programmers out here to help me out.
Garry
garry
|
|
|
|
|
I wouldn't put anything on the right button except a context menu.
You might consider a drag-and-drop style of movement which people would be more familiar.
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar
The Second EuroCPian Event will be in Brussels on the 4th of September
Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!
My Blog
|
|
|
|
|
I seem to be running into recurring problems with doing book exercises where my code looks exactly the same as the author's, but theirs works and mine has some sort of syntax error.
my latest is:
"Too many arguments to Public Sub New()"
The bolded line has the blue squiggly under (Me)
<br />
Private Sub Button1_Click(ByVal sender As System.Object, _<br />
ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
Dim f2 As New Form2(Me)<br />
f2.Show()<br />
Me.Hide()<br />
<br />
End Sub<br />
<br />
Private Sub Button2_Click(ByVal sender As System.Object, _<br />
ByVal e As System.EventArgs) Handles Button2.Click<br />
<br />
Dim f2 As New Form2<br />
f2.Show()<br />
<br />
<br />
End Sub<br />
End Class<br />
Granted, there is another form involved here with similar code.
Still coaxing software out of the can after all these years...
|
|
|
|
|
I seem to be running into recurring problems with doing book exercises where my code looks exactly the same as the author's, but theirs works and mine has some sort of syntax error.
my latest is:
"Too many arguments to Public Sub New()"
The bolded line has the blue squiggly under (Me)
<br />
Private Sub Button1_Click(ByVal sender As System.Object, _<br />
ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
Dim f2 As New Form2(Me)<br />
f2.Show()<br />
Me.Hide()<br />
<br />
End Sub<br />
<br />
Private Sub Button2_Click(ByVal sender As System.Object, _<br />
ByVal e As System.EventArgs) Handles Button2.Click<br />
<br />
Dim f2 As New Form2<br />
f2.Show()<br />
<br />
<br />
End Sub<br />
End Class<br />
Still coaxing software out of the can after all these years...
|
|
|
|
|
You need to change the constructor of the form 'form2' such that it accepts a parameter of type 'form1' if you are in the current form.
Constructor of the form 'form2' goes like this
Sub New ( f as Form1 )
...Code goes here
End Sub
Bhaskara
|
|
|
|
|
tanstaafl28 wrote:
Dim f2 As New Form2(Me)
f2.Show()
Me.Hide()
End Sub
You don't need the Me in the constructor for Form2, unless you intend on passing Form1 as a reference to Form2 for some reason. Usually this would be because Form2 has code on it that modifies the instance, or controls, on Form1.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
