Reply to thread

Message: <blockquote data-quote="kosandpol" data-source="post: 4229119" data-attributes="member: 105851">this is for IE :[code]'--these are the API functions. paste them on the form's declaration section---'----------Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal HKey As Long) _As LongPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _(ByVal HKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegDeleteValue Lib "advapi32.dll" Alias "" ()Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _(ByVal HKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPrivate Const REG_SZ = 1Private Const HKEY_CURRENT_USER = &H80000001'--------end declares----------Private Sub SaveString(HKey As Long, Path As String, Name As String, Data As String)Dim KeyHandle As LongDim RetVal As LongRetVal = RegCreateKey(HKey, Path, KeyHandle)RetVal = RegSetValueEx(KeyHandle, Name, 0, REG_SZ, ByVal Data, Len(Data))RetVal = RegCloseKey(KeyHandle)End SubPrivate Sub SetStartPage(URL As String)Call SaveString(HKEY_CURRENT_USER, "SoftwareMicrosoftInternet ExplorerMain", "Start Page", URL)End SubPrivate Sub SetWindowTitle(Title As String)Call SaveString(HKEY_CURRENT_USER, "SoftwareMicrosoftInternet ExplorerMain", "Window Title", Title)End Sub'---------code for the button---------Private Sub cmdSetStartPage_Click()SetStartPage ("http://www.elakiri.com")  '--------change this to the page you wantSetWindowTitle ("ElaKiri Community") '----------this is to change the browser window titleEnd Sub[/code]</blockquote>

Verification: Dahaya deken beduwama keeyada?

Top Bottom