SOURCE RELEASED BELOW :p
I suggest VB6, to give some tips:
Code:
shell("Localhost.exe 123.45.65 8484",vbnormalfocus) <= opens localhost to ip 123.45.65 at port 8484
Now learn how ro read settings from an .ini
Ini reading/writing module:
Code:
Option Explicit
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Private 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
Public Function INIWrite(sSection As String, sKeyName As String, sNewString As String, sINIFileName As String) As Boolean
Call WritePrivateProfileString(sSection, sKeyName, sNewString, sINIFileName)
INIWrite = (Err.Number = 0)
End Function
Public Function INIRead(sSection As String, sKeyName As String, sINIFileName As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
INIRead = Left(sRet, GetPrivateProfileString(sSection, ByVal sKeyName, "", sRet, Len(sRet), sINIFileName))
End Function
Code example:
Code:
textbox1.text = INIRead("Category","Stringname","C:\someinifile.ini")
Category is in this case '[MapleStory]', stringname is 'ClientEXE=blabla' & someinifile is the path to the .ini (use ' app.path & "\settings.ini" ' to make it relative)
I hope this wasn't to hard to understand :p
If you want some modifications/addons, plz tell me!