台灣最大程式設計社群網站
線上人數
686
 
會員總數:245119
討論主題:189029
歡迎您免費加入會員
討論區列表 >> VB6 >> 如何抓取teamviewer的ID
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何抓取teamviewer的ID
價值 : 50 QP  點閱數:347 回應數:3

樓主

小羊
門外漢
0 19
374 75
發送站內信

目前已經知道teamviewer的ID路徑為:電腦\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\TeamViewer
在windows的登錄檔中
我要如何用VB6抓取ID來做使用或顯示




搜尋相關Tags的文章: [ VB6 ] , [ teamviewer ] , [ ID ] ,
本篇文章發表於2019-03-22 10:11
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
最有價值解答

小羊窒息
捐贈 VP 給 缺氧的羊:窒息 檢舉此回應
https://docs.microsoft.com/zh-tw/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-read-a-value-from-a-registry-key
本篇文章回覆於2019-03-26 17:46
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
不錯的參考

beck023
檢舉此回應
Const strFolderName = "\\fileserver\share\folder\"

Const ShowInfoOutput = True

Const ForReading = 1, ForWriting = 2, ForAppending = 8


Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."


Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")


strKeyPath = "SOFTWARE\Wow6432Node\TeamViewer"
strValueName = "ClientID"

oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwTVID

If dwTVID = 0 Then
strKeyPath = "SOFTWARE\Wow6432Node\TeamViewer"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwTVID
End If
Set oReg = Nothing




dim fso, f
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("C:\test.txt", true) '第二個引數表示目標檔案存在時是否覆蓋
f.Write("")& dwTVID
f.WriteLine("")
f.WriteBlankLines(3) '寫入三個空白行(相當於在文字編輯器中按三次回車)
f.Close()
set f = nothing
set fso = nothing
本篇文章回覆於2019-04-19 12:35
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

beck023
檢舉此回應
執行後 TeamViewer ID 會存在"C:\test.txt"


Bginfo 可以抓txt來顯示
本篇文章回覆於2019-04-19 12:38
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.