vbÖÐinte»ñÈ¡ÍøÒ³ÄÚµÄËùÓг¬Á´½Ó
vbÖÐinte»ñÈ¡ÍøÒ³ÄÚµÄËùÓг¬Á´½Ó Ôõô»ñÈ¡
°üÀ¨ÕýÔòת»¯
²»ÒªÓÃwebbrower
ÎÒÏëËüʵÏÖÒÔϹ¦ÄÜ
ÊäÈëÍøÕ¾ ×Ô¶¯¼ìË÷ËùÓÐÁ´½Ó£¬²¢Êä³öËùÓг¬Á´½Ó
ÅжϴíÎóÍøÒ³ Éú³ÉµØÍ¼
ÒÔÏÂÏÂÔØµÄÔ´Âë ²»ÊǺܶ® Ï£Íû¸ßÊÖ½âÊÍÏÂ
ÐÂÊÖ ²»ÔÚºõ·Ö ÏÂÃæ´úÂëÓдíÎó
VB code:
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdGoWander_Click()
StopSearching = False
rtbLinkNames.Text = ""
On Error Resume Next
Close #1
On Error GoTo 0
' Open CurDir & "\HTTPFILE.TXT" For Append As #1
Current_Pos = 1
Me.MousePointer = vbArrowHourglass
cmdGoWander.Enabled = False
cmdStopWandering.Enabled = True
If Get_File(txtSite.Text) Then
If Not Parse Then
Me.MousePointer = vbNormal
cmdGoWander.Enabled = True
cmdStopWandering.Enabled = False
Exit Sub
End If
Else
Me.MousePointer = vbNormal
MsgBox "Unable to find the desired site."
End If
cmdGoWander.Enabled = True
cmdStopWandering.Enabled = False
Me.MousePointer = vbNormal
StopSearching = True
End Sub
Private Sub cmdStopWandering_Click()
StopSearching = True
End Sub
Private Sub Form_Load()
txtSite.Text = "http://www.jamsa.com/jamsa1.htm"
NewLine = Chr(13) & Chr(10)
StopSearching = True
cmdStopWandering.Enab
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......