Jump to content

Bullseye

Member
  • Posts

    7
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United Kingdom

About Bullseye

Bullseye's Achievements

0

Reputation

  1. Can somebody throw me a bone and tell me what software I need to edit the file to create my own autorun options when setup.exe is clicked on xp cd?
  2. Got it working, went back to vb6 ... Public Declare Function GetPrivateProfileString Lib "kernel32" Alias _ "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long Function Read_Ini_String(section_name As String, key_name As String, file_name As String) As String Dim result_buffer_length As Long Dim result_buffer As String * 256 result_buffer_length = GetPrivateProfileString(section_name, key_name, "UNKNOWN", result_buffer, 256, file_name) Read_Ini_String = (Left$(result_buffer, result_buffer_length)) End Function
  3. Trying to use WMI to read the following for the default network adapter .. Connection Name NIC Model NIC MAC NIC I.P Connected Speed Any help appreciated.
  4. Have tried to do some Delphi code conversion but failed. Anybody have a function to read the registry and then decode the entry back as a string. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion] .. [DigitalProductId] Any help appreciated.
  5. Thanks, but still no closer, it just seems that its totally ignoring something, yet ini file is laid out correct? [WADS] Cat1=Communications Cat2=WebDev Can't think that using the for/next loop as a counter to add a number on the end of CAT can be the problem. category_name = "Cat" & CStr(category_counter) .. Watch comes back as Cat1,Cat2 ......
  6. I need to read from a ini file so under good old vb6 .. Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Object, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Dim result As Integer = 0 Dim current_category As String = "" Dim category_name As String = "" Dim tmp_cat As String = "" For category_counter = 1 To number_of_categories category_name = "Cat" & CStr(category_counter) result = GetPrivateProfileString("WADS", category_name, "UNKNOWN", tmp_cat, 255, app_path & "wads.cfg") current_category = Left$(tmp_cat, result) Next Accordng to watch window, I'm not getting anything back from tmp_cat, yet result says it received 7 characters, but it should be 14, for Communications. I even changed the category_name value to "Cat1", same result. Daft thing is, GetPrivateProfileInt is working correctly, with almost the same basic params, GetPrivateProfileInt("WADS", "AdminPass", 0, app_path & "wads.cfg"). Any clues, why vb2008 is being a b***h? By the way, incase your wondering, app_path is "c:\vb2008\projects\wads\" so no errors there.
  7. As the title says, have spent a few weeks reading up here at MSFN about creating a custom XP DVD for work and its finished. Now, I would like to add all of Bashrats drivers so that when XP ask for a driver, it will search all the driver folders. Any help appreciated.
×
×
  • Create New...