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

VB»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ

http://zhidao.baidu.com/question/84802747.html
VBÈçºÎ»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ
¾ÍÊDZÈÈçÎÒ´ò¿ªDÅ̵ÄaaaÎļþ¼Ð£¬´°¿ÚµØÖ·À¸¾ÍÊÇÏÔʾD:\aaa£¬ÇëÎÊÎÒÒªÔõôÓÃVBд³ÌÐòÀ´»ñÈ¡´°¿ÚµØÖ·À¸µÄÄÚÈÝ£¿£¨²»ÊÇIEµÄµØÖ·À¸£©
Èô´ò¿ªÁËÁ½¸ö´°¿Ú£¬±ÈÈçDÅ̵ÄaaaÎļþ¼ÐºÍEÅ̵ÄbbbÎļþ¼ÐϵÄcccÎļþ¼Ð¶¼´ò¿ªµÄ»°£¬µã»÷command1,text1¾ÍÏÔʾ£º
D:\aaa
E:\bbb\ccc
Çë´ó¼Ò°ïæÏ£¬Ð»Ð»£¡
Private Const GW_HWNDNEXT = 2
Private Const GW_HWNDFIRST = 0
Private Const WM_GETTEXT = &HD
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Function GetWindowList() As String
Dim hwnd As Long
Dim s As String
hwnd = Me.hwnd
hwnd = GetWindow(hwnd, GW_HWNDFIRST)
While hwnd <> 0
s = String(256, Chr(0))
GetClassName hwnd, s, 255
s = Replace(s, Chr(0), "")
If s = "CabinetWClass" Then
GetWindowList = GetWindowList & GetUrl(hwnd) & vbCrLf
End If
hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)
Wend
End Function
Private Function GetUrl(hwnd As Long) As String
Dim NexthWnd As Long
Dim s As String
NexthWnd = 0
NexthWnd = FindWindowEx(hwnd, NexthWnd, vbNullString, vbNullString)
While NexthWnd <> 0
s = String(256, Chr(0))
GetClassName NexthWnd, s, 255
s = Replace(s, Chr(0), "")
If s = "Edit" Then


Ïà¹ØÎĵµ£º

µ÷ÊÔJavaScript/VB Script½Å±¾³ÌÐò£¨IEƪ£©


JavaScript/VB Script½Å±¾³ÌÐòÒ»°ãÓÐÁ½ÖÖÖ´Ðз½Ê½£¬Ò»ÖÖÊÇǶÈëÔÚËÞÖ÷³ÌÐòÀïÃæÖ´ÐУ¬±ÈÈçÔÚIEä¯ÀÀÆ÷ÀïÃæÖ´ÐУ»ÁíÍâÒ»ÖÖ£¬ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ö´ÐУ¨ËäÈ»»¹ÊÇͨ¹ýÁíÍâÒ»¸ö³ÌÐò½âÊÍÖ´ÐУ¬µ«ÊǸøÈ˵ĸоõ±Ï¾¹ÊÇÖ±½ÓÔËÐУ©¡£
ÕâÁ½ÖÖ·½Ê½£¬¶¼¿ÉÒÔʹÓÃVisual StudioÀ´½øÐе÷ÊÔ£¬ÏÈ¿´´ó¼ÒÓÃµÃ±È½ÏÆµ·±µÄÍøÒ³½Å±¾³ÌÐòµÄµ÷ÊÔ£º
1 ......

VBµ÷ÓÃϵͳµÄ"´òÓ¡»úÉèÖÃ"ºÍ"Ò³ÃæÉèÖÃ".

VBµ÷ÓÃϵͳµÄ"´òÓ¡»úÉèÖÃ"ºÍ"Ò³ÃæÉèÖÃ".
Option Explicit
Const FW_NORMAL = 400
Const DEFAULT_CHARSET = 1
Const OUT_DEFAULT_PRECIS = 0
Const CLIP_DEFAULT_PRECIS = 0
Const DEFAULT_QUALITY = 0
Const DEFAULT_PITCH = 0
Const FF_ROMAN = 16
Const CF_PRINTERFONTS = &H2
Const C ......

ÔÚVBÖÐʹÓÃÎÄ×ÖÀʶÁÒýÇæ£¨TTS£©¼¼Êõ

¡¡ÏÖ½ñÊÐÃæÉÏÁ÷ÐеÄһЩӢÓïѧϰÈí¼þ£¬ÔÚ¹ã¸æ´ÊÉϾ­³£Ëµ×Ô¼ºÊ¹ÓÃÁ˹ú¼Ê¶¥¼âµÄÈ«³ÌÓïÒôTTS¼¼Êõ£¬ÄܽøÐÐÕû¶ÎÓ¢ÎĵÄÁ÷ÀûÀÊ
¶Á£¬²¢ÄÜ×ÔÓɵ÷½ÚÀʶÁµÄËÙ¶ÈÓëÆµÂʵȡ£ÄÇô£¬Õâ¸öÉñÆæµÄTTS¾¿¾¹ÊÇʲô¶«Î÷ÄØ£¿
¡¡¡¡Æäʵ£¬TTSÊÇ΢Èí³öÆ·µÄÒ»Ì×ÎÄ×ÖÀʶÁÒýÇæ£¨Text-To-Speech Engine)£¬ÕâЩӢÓïÈí¼þ¾ÍÊǵ÷ÓÃËüÀ´½øÐÐÓ¢ÎÄÀʶÁµÄ¡£ÎÒÃÇÔ ......

ʹÓÃVB´´½¨PPPoEÒÔ¼°VPN²¦ºÅÁ¬½ÓµÄºËÐÄ´úÂë

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
    Data1   As Long
    Data2   As Integer
    Data3   As Integer
 &nbs ......

vbʹÓÃpicturebox»­ÇúÏßͼ

'Ìí¼Ó¸öpicture1ºÍcommand1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Pictu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ