Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎÓÃ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


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ