VB×Ô¶¯µÇ¼¼ì²â²¢Ìí¼ÓÓòÃû
ÓôÃÆ£¬ÎÒʹÓõÄÕâ¸ö¿Õ¼äµÄIDCÉ̾¹È»Ã¿¸ôÒ»¶Îʱ¼ä¾ÍÒª¼ì²â°ó¶¨µÄÓòÃûÊÇ·ñÔÙδÌá½»±¸°¸ÁбíÖУ¬Èç¹ûÊǾÍɾ³ý£¬µ«ÊÇÈ´²»¼ì²âÎÒÊÇ·ñÌá½»Á˱¸°¸£¬°´ÕÕËûÃÇ˵·¨É¾³ýÓòÃûÒ»Ììºó²ÅÄÜÔٴΰ󶨣¬·ñÔòÕâÒ»ÌìÄÚ°ó¶¨Á˵½Ï´μì²â¾Í»áÔÙɾ³ý¡£ÕâÑùÎҾͲ»Í£µÄÔÚºǫ́¿´£¬¿´ÊÇ·ñ±»É¾³ý£¬Èç¹û±»É¾³ý£¬¾ÍÔÙ°ÑÓòÃû°ó¶¨ÉÏÈ¥£¬;(ºÜÊÜÉË£¡
ÓÚÊÇÓÃVB×öÁ˸ö³ÌÐò£¬×Ô¶¯µÇ¼¼ì²â£¬¿´ÓòÃûÊÇ·ñ±»É¾³ý£¬É¾³ýÔò×Ô¶¯Ìí¼ÓÓòÃûÉÏÈ¥£¬Ã¿10Ãë¼ì²âÒ»´Î¡£Ö÷ÒªÓõ½ÁËWebBrowser
н¨´°ÌåFORM1£¬ÔÚ´°ÌåÉϽ¨¸öWebBrowserºÍTIMER¾Í¿ÉÒÔÁË£¬TIMER¼ä¸ôÉèÖÃΪ10000¡£
ÒÔÏÂÊÇ´úÂë
Private Sub Form_Load()
WebBrowser1.Navigate "http://**************/hostadm/subhostname1.asp?id=****"
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
turl = WebBrowser1.LocationURL
If turl <> "http://**************/hostadm/subhostname1.asp?id=****" Then
If turl <> "http://**************/user/default.asp" Then
If turl <> "http://**************/user/logininfo.asp" And turl <> "http://**************/user/hostadm.asp" And turl <> "http://**************/hostadm/selfhostmodify.asp" Then
WebBrowser1.Navigate "http://**************/user/default.asp"
ElseIf turl = "http://**************/hostadm/selfhostmodify.asp" Then
WebBrowser1.Navigate "http://**************/hostadm/subhostname1.asp?id=****"
ElseIf turl = "http://**************/user/hostadm.asp" Then
WebBrowser1.Navigate "http://**************/user/hosta
Ïà¹ØÎĵµ£º
VB¶ÔINIÎļþ²Ù×÷
2009-02-25 00:17
INI ÎļþÊÇʲôÑù×Ó£¿——²»»á°É£¬Õⶼ²»ÖªµÀ¡£INI Îļþ¾ÍÊÇ Windows Öг£¼û
µÄÒÔ .ini ΪÀ©Õ¹ÃûµÄÎļþ£¬ÆäÄÚ²¿¸ñʽºÍ¸÷²¿·ÖµÄÃû³ÆÈçÏ£º
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
& ......
ʹÓÃVC±àдVBʹÓÃDLL
Ò»¡¢ÔÚº¯Êý¶¨ÒåÇ°±ØÐë¼ÓÉÏextern "c"£¬_stdcall¹Ø¼ü×Ö¡£
extern "C" int _stdcall Sum(int x,int y)
{
return x+y;
}
¶þ¡¢DLLµÄ.defÎļþÖбØÐë¼ÓÉÏÈë¿Úº¯Êý
EXPORTS
sample @1
  ......
¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......
¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØλ,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......
¡¡¡¡UDPÐÒé»ù´¡£º
¡¡¡¡UDP(User Datagram
Protocol)ÊÇÒ»ÖÖÎÞÁ¬½ÓÐÒ飬ÓëTCP²Ù×÷²»Í¬£¬¼ÆËã»ú¼ä²¢²»ÐèÒª½¨Á¢Ò»¸öÁ¬½Ó£¬Í¬Ê±£¬Ò»¸öUDPÓ¦ÓÿÉͬʱ×÷ΪӦÓõĿͻ§»ò·þÎñÆ÷·½¡£
¡¡¡¡ÓÉÓÚUDPÐÒé²¢²»ÐèÒª½¨Á¢Ò»¸öÃ÷È·µÄÁ¬½Ó£¬Òò´Ë½¨Á¢UDPÓ¦ÓÃÒª±È½¨Á¢TCPÓ¦Óüòµ¥µÃ¶à¡£ÔÚTCPÓ¦ÓÃÖУ¬Ò»¸öWinsock¿ØÖƱØÐëÃ÷È·µØÉèÖóÉ&ldqu ......