1樓：匿名使用者
想問下你的軟體是不是一定兄戚要在int環境下執行態讓的帆塵局。如果是的話。那就簡單了說。網路註冊就行了。若是單機環境可執行的話。建議登錄檔加主程式註冊來控制。
vb怎麼獲取系統當前的系統時間啊
2樓：網友
vb中獲取系統當前的時間用函式 now() 就可以。另外還有相關的時間 date() time()
now()獲取系統當前日期和時間，如：2015-12-12 22：23：34
time()獲取系統的時間，如：22：23：
34不顯示當前日期date()獲得系統的日期，如：2015-12-12private sub command1_click()msgbox now()
msgbox time()
msgbox date
end sub
3樓：匿名使用者
vb中time函式獲取當前系統時間直接 = time即可在label1控制項中顯示出系統當前的時間。
用vb獲取北京時間
4樓：網友
在窗體上新增乙個命令按鈕command1、乙個label1和乙個inet1控制項，複製以下**即可：
private sub command1_click()
dim strcoding as string
dim time0 as string, date0 as string
time0 = right(split(strcoding, "年")(0), 4) &"年" & split(split(strcoding, "年")(1), "日")(0) &"日"
date0 = left(split(strcoding, "var hrs = ")(1), 2) &":" & left(split(strcoding, "var min = ")(1), 2) &":" & left(split(strcoding, "var sec = ")(1), 2)
time0 & " " & date0
end sub
5樓：網友
private sub command1_click()
dim strcoding as string
dim time0 as string, date0 as string
time0 = right(split(strcoding, "年")(0), 4) &"年" & split(split(strcoding, "年")(1), "日")(0) &"日"
date0 = left(split(strcoding, "var hrs = ")(1), 2) &":" & left(split(strcoding, "var min = ")(1), 2) &":" & left(split(strcoding, "var sec = ")(1), 2)
time0 & " " & date0
date = "" & time0 & " " & date0
end sub
注意新增部件。
工程---部件---micr...internet tr...打上勾確定 然後你在去加乙個控制項就可以執行改時間了，，你把時間改下 然後再用這程式改回來。
vb 獲取網路時間方法
6樓：網友
附有ocx你自己去引用。。
7樓：網友
去學習ntp吧。
必須要用socket才行，不管是控制項或api都一樣。
vb怎麼獲取文字框裡的字串，VB怎麼獲取文字框裡的字串
先定義一個變數，然後將變數設定為文字框的內容即可。如下 以獲取text1控制元件為例 dim str1 as string 定義字元變數private sub text1 change 當text1字元改變時 str1 text1.text 設定為文字框的字串end sub dim a as str...
vb中怎麼獲取滑鼠的座標，怎麼獲取 canvas 上滑鼠的座標
private sub form mousedown button as integer,shift as integer,x as single,y as single clscurrentx x 100currenty y print x y end sub private sub form m...
vb中如何獲得所有的視窗語柄， VB 如何獲取一個視窗中所有文字框的控制代碼
private declare function findwindowex lib user32 alias findwindowexa byval hwnd1 as long,byval hwnd2 as long,byval lpsz1 as string,byval lpsz2 as stri...