ÈçºÎÓÃ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 û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......