Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(1)
Dim Cnn As New ADODB.Connection '¶¨ÒåÊý¾ÝÁ´½Ó¶ÔÏó £¬±£´æÁ¬½ÓÊý¾Ý¿âÐÅÏ¢£»ÇëÏÈÌí¼ÓADOÒýÓÃ
MsgBox(2)
......
ÎÒ¶¼Ñо¿3ÌìÁË,,ËÀ´°ï°ïÎÒ°É...!!!
ÍøÉϵIJéÁË,µ«Êǽ²µÄ²»ÊǺÜÇå³þ,ʹÓÃjawinµÄʱºò,×Ô´øµÄÀý×ÓÊÇ¿ÉÒÔÕý³£ÔËÐеÄ,µ«ÊÇÓÃÎÒ×Ô¼ºµÄdll¾Í²»ÐÐ.,,ÔÚÒ»¸öQQȺÀïÃæ ±»¸æÖªÒª×Ô¼ºÓÃCдһ¸ödllÈ¥ÒýÓÃÏÖÔÚµÄdll(vbдµÄ),È»ºóÔÙÓÃjavaµ÷ÓÃ,¿ÉÊÇÎÒ²»»áCѽ..
¾ÍûÓа취ÁËÂð?
Èç¹ûÄãÐèÒªdllÎļþÀ´×öʵÑéµÄ»°,ÎÒµÄQQÊÇ 814988 ......
±¾È˽ð±Ò²»¹»£¬ÎÞ·¨ÏÂÔØÂÛ̳Àï´óϺÃǵÄʾÀý¡£Çó½Ì¸÷λÈÈÐÄÅóÓÑ£¬ÄÜ·ñ¸øÎÒ·¢¸öÈçÌâʾÀý£¬ÓÊÏätbmq@163.com,»ò¼ÓQQ277362112¡£²»Ê¢¸Ð¼¤~£¡
°Ù¶ÈһϰÉ
Ëæ×ÅÊÖ»ú¡¢Ð¡ÁéͨµÈÒÆ¶¯µç»°µÄÈ«ÃæÆÕ¼°£¬Ô½À´Ô½¶àµÄ¿Í»§Ï£Íû£º
ÔÚ¼ÆËã»úÉÏÄܹ»ÊµÏÖ¶ÌÐŵÄÊÕ·¢Ö§³Ö£»
ÔÚÆóÊÂÒµµ¥Î»°ì¹«ÏµÍ³»òÒµÎñÁ÷³ÌÖÐǶÈë¶ÌÐÅ֪ͨ»ò±¨¾¯µÈ¹¦ÄÜ£»
Ô ......
´ó¼ÒºÃ£¬ÎÒÊǸö²ËÄñ£¬¸ÕѧϰVB£¬ÎÒÓÐÒ»¸öÎÊÌâÏëÇë½Ì£¡
ÎÒÏëÔÚVBÖÐÓÃIFÓï¾ä×öÅÐ¶Ï £¬Èç¹ûÂú×ãquanxian="user"ÔòÖ´ÐÐÓï¾ä£¨²»ÄÜÖ´ÐУ© ÎÒµÄÊý¾Ý¿âsqlÀï×Ö¶ÎÓÐusername passwoer quanxian
´úÂëÈçÏ£º
Private Sub cmdOK_Click()
Dim m As String
Dim quanxian As String
Set conn = New AD ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCXÖУ¬ÊµÏÖAÓëBµÄÏûÏ¢·¢ËÍ¡£
ÇëÎÊ¿ÉÒÔʵÏÖÂð£¿
ÎÒÐèҪѧϰÄÄЩ֪ʶ£¿
ÈçÓмòµ¥µÄSocketÀý×Ó×îºÃ¡£
MSDNÖÐ ......