ÈçºÎÓÃ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
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æȨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......