在重庆拍婚纱照是否有好的去处？
我当时拍婚纱照感觉肢肆胡效果还不错，就是1024摄影，他们有比较成熟的经验，找他们拍婚纱摄影的满意度历拦都挺高的。雹梁
vb检测QQ是否已登录
用CreateToolhelp32Snapshot，Process32First，Process32Next 遍历进程，有几个qq开着，就能清辩找到几个~~~
代码如下历樱：
Private Type PROCESSENTRY32
dwSize As Long
cntUseage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
swFlags As Long
szExeFile As String * 1024
End Type
Private Const TH32CS_SNAPPROCESS = &H2
Dim MySnapHandle As Long '存放进程快照句肢正丛柄
Dim ProcessInfo As PROCESSENTRY32
MySnapHandle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
ProcessInfo.dwSize = Len(ProcessInfo)
'建立进程快照
If Process32First(MySnapHandle, ProcessInfo) <> 0 Then
'开始遍历进程
Do
If InStr(ProcessInfo.szExeFile, QQ.exe) > 0 Then
msgbox 找到一个qq~~~
End If
Loop While Process32Next(MySnapHandle, ProcessInfo) <> 0
End If
CloseHandle MySnapHandle
hwd=FindWindow(#32770,QQ用户登录尺拿)
查找QQ用户登录窗口，如果氏哗有就说明没有登录，否则说明已登录。
未登录QQ号码可歼困行以通过登录窗口查找内的ComboBox得到。
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 GetParent Lib user32 (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib user32 Alias GetWindowTextA (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowRect Lib user32 (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type mType '自定义数据类型
fhwnd As Long '窗口句柄
fText As String * 255 '窗口标题
fRect As RECT '窗口矩形
pHwnd As Long '父窗句柄
pText As String * 255 '父窗标题
End Type
Private Sub Command1_Click()
Dim Wndback As Long '上一个被查找的目标句柄
Dim i As Long '数组控薯伏拿制
Dim m_Type() As mType
Do
ReDim Preserve m_Type(i)
DoEvents
m_Type(i).fhwnd = FindWindowEx(0, Wndback, vbNullString, vbNullString) '数搭获取hwnd,第一个参数指定为0,查找桌面子窗口,第2个参数是开始查找的窗口,第34个参数使函数查找所有窗口
If m_Type(i).fhwnd = 0 Then '=0时已经查找一遍了,退出
Exit Sub
Else '否则获取控件相关消息
GetWindowText m_Type(i).fhwnd, m_Type(i).fText, 255 '获取标题厅差
GetWindowRect m_Type(i).fhwnd, m_Type(i).fRect '获取RECT
m_Type(i).pHwnd = GetParent(m_Type(i).fhwnd) '获取父HWND
GetWindowText m_Type(i).pHwnd, m_Type(i).pText, 255 '获取父标题
End If
If InStr(1, m_Type(i).fText, QQ) <> 0 Then
If Left(m_Type(i).fText, 6) = QQ用户登录 Then MsgBox 有QQ用户未登录
End If
Wndback = m_Type(i).fhwnd '保存上一个查的句柄
i = i + 1
Loop
End Sub
<TD vAlign=center align=middle width=74 height=23><a target=blank href=tencent://message/?uin=896890009&Site=桂林蔽神燃宏虚开心时尚外景婚纱摄影工作室&Menu=yes><img border=0 SRC= alt=QQ客瞎宽服>
富商大贾