俄 这个就是代码 。。看不懂没关系。。
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function SaveINI Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lplFileName As String) As Long
Dim i As Integer
Dim cur As Integer
Function GetINI(AppName As String, KeyName As String, filename As String) As String
Dim RetStr As String
RetStr = String(10000, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))
End Function
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click()
For i = 0 To List1.ListCount - 1
List1.RemoveItem i
Exit For
Next
End Sub
Private Sub Command3_Click()
cur = 0
Timer1.Enabled = True
Timer1.Interval = Combo1.Text
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
End Sub
Private Sub Command5_Click()
Shell "explorer.exe
http://bbs.houdao.com/"
End Sub
Private Sub Command6_Click()
WebBrowser1.Navigate2 Text2.Text
End Sub
Private Sub Timer1_Timer()
SendKeys "{enter}"
SendKeys List1.List(cur)
SendKeys "{enter}"
cur = cur + 1
If cur = List1.ListCount Then
cur = 0
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
For i = 1 To List1.ListCount
SaveINI "list", CStr(Format(i - 1, "000")), List1.List(i - 1), App.Path & "\Config.ini"
Next i
SaveINI "ListCount", "Count", List1.ListCount, App.Path & "\Config.ini"
End Sub
Private Sub Timer2_Timer()
End Sub
