ÈçºÎÓÃVBµÇÂ¼ÍøÕ¾?Çë´úÂë¾ÙÀý - VB / »ù´¡Àà
ÈçºÎÓÃVBµÇÂ¼ÍøÕ¾?Çë´úÂë¾ÙÀý
ÍøÒ³ÉÏÓÐÓû§Ãû,¿ÚÁîºÍÑéÖ¤Âë,µ±È»ÑéÖ¤ÂëÓÃÊÖ¹¤Êä
ʹÓÃwebbrowser¿Ø¼þ¡£
ͨ¹ý webbrowser.document.body.form("formid").valueÀ´¸³Öµ¡£
ÍêÁË,ÎÊÌâûÎÊÃ÷°×,
ÎÒÒªÓÃWinsock
²»ÓñðµÄ
¼ÌÐøµÈ´ý¸ßÊÖ
¼ÌÐøµÈ´ý¸ßÊÖ
¼ÌÐøµÈ´ý¸ßÊÖ
ϸö·â°üÈí¼þ,Õý³£µÇ½µÄʱºò¿´¿´·¢Ë͵ÄÊÇʲô
È»ºóÄã×Ô¼º´´½¨Ò»¸ö,·¢Ë͹ýÈ¥¾ÍOKÁË
Èç
Dim Str As String
Dim strPage As String, strHost As String, strRefer As String
Dim lenth As Integer
strHost = "localhost:8080"
strPage = "/web/test.asp"
strRefer = "http://localhost:8080/web/test.asp"
length = Len("name=123&pwd=456")
Str = "POST " & strPage & " HTTP/1.1" & vbCrLf
Str = Str & "Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" & vbCrLf
Str = Str & "Referer: " & strRefer & vbCrLf
Str = Str & "Accept -Language: zh -cn" & vbCrLf
Str = Str & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Str = Str
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......