文章列表
VB读取网站超链接!
- 博客分类:
- 技术杂绘
VB读取网站超链接!
2011年01月23日
Private Sub Command1_Click()
WebBrowser1.Navigate (Trim(Text1.Text))
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate (Trim(Text1.Text))
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
WebBrowser1.Silent = True
Frame1.Caption = "连接列表: 您浏览的网 ...
第一次用VB做海贼王游戏按键外挂(暂未完成,菜鸟就是菜鸟)
2011年12月09日
窗体1:
Rem 设置登入窗口关闭,后续子窗口也关闭
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
On Error Resume Next
For i = Forms.Count ...
VB模拟点击代码(广告+排名)
- 博客分类:
- 技术杂绘
VB模拟点击代码(广告+排名)
2010年01月02日
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Lon ...