VB È¡µØÖ·º¯Êý´óÈ«
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
Public Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
È¡¶ÔÏóµØÖ·: ObjPtr
È¡OLE¶ÔÏóµÄµØÖ·: OLE_NAME.LpOleObject
È¡º¯ÊýµØÖ·: AddressOf
È¡×Ö·û´®µØÖ·: StrPtr
È¡±äÁ¿µØÖ·: VarPtr
È¡Êý×é±äÁ¿µØÖ·: VarPtrArray
È¡×Ö·û´®Êý×éµØÖ·: VarPtrStringArray
Ïà¹ØÎĵµ£º
Option Explicit
Private Type UNICODE_STRING
Length As Integer
MaximumLength As Integer
Buffer As Long
End Type
Private Type OBJECT_ATTRIBUTES
Length As Long
RootDirectory As Long
  ......
Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1) ' ÔËÐмÆËãÆ÷¡£
AppActivate ReturnValue ' ¼¤»î¼ÆËãÆ÷¡£
For I = 1 To 100 ' ÉèÖüÆÊýÑ»·¡£
SendKeys I & "{+}", True ' °´Ï°´¼ü¸ø¼ÆËãÆ÷
Next I ' ½«ËùÓÐ I ÖµÏà¼Ó¡£
SendKeys "=", True ' È¡µÃ×ܺϡ£
SendKeys "%{F4}", True ' °´ ALT+F4 ¹Ø ......
Ê®Ììѧ»áASP.net֮ʵսϵÁУ¨C#ºÍVb.netË«°æ±¾£©
µÚÒ»Ìì
ÎÒÈÏΪASP.NET±ÈASPÄѺܶ࣬ϣÍû´ó¼Ò×öºÃ×¼±¸¡£ÄÑÄÑÔÚʵÏÖͬһ¸öЧ¹ûÓкܶ෽·¨£¬´ó¼Ò»òÐí»áÒÉ»ó¡£Ê®Ììѧ»áϵÁн̳̻áÇåÎúµÄд³ö¸÷ÖÖ·½·¨£¬Èôó¼ÒÄÜÉÙÒ»µã¿²¿À¡£ÔÚASPÀïÃ棬´ó¼Ò¼¸ºõ¶¼ÊÇʹÓÃVB£¬Êý¾Ý¿âÂҲÎÞ·ÇÊÇSQLºÍACCESS¡£ÔÚASP.NETÀïÃ棬Êý¾Ý¿â»¹ÊÇÕ ......
'´´½¨Êý¾Ý¿â
Private Sub Create(ByVal mdbPath As String)
If File.Exists(mdbPath) Then
Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ´æÔÚ£¬ÎÞ·¨´´½¨")
......
дÁËÒ»¸övbµÄ³ÌÐò£¬ÓÃÀ´°ÑÔÀ´Ð´µÄ¼¸¸övbºÍvcµÄ³ÌÐòÕûºÏÆðÀ´¡£¾ÍÊÇʹÓÃShellº¯Êý¡£½á¹û·¢ÏÖ£¬vcµÄ³ÌÐò¿ÉÒԺܺõÄÏÔʾ£¬µ«vbдµÄÈ´Ò»ÔËÐоÍ×îС»¯ÁË¡£×Ðϸ²é¿´ÁËÒ»ÏÂÒÔÏÂÎÄÕ£¬²Å·¢ÏÖÔÀ´shellº¯ÊýµÄĬÈÏÏÔʾģʽÊÇwindowstyleÊǵÈÓÚvbMinimizedFocus¡£È»ºó¾ÍÊÇÖ±½Ó¼ÓÉÏÒ»¸övbNormalFocus¡£Ò»ÇÐok!
vbµÄs ......