public declare function apibeep lib "kernel32" alias "beep" (byval dwfreq as long, byval dwduration as long) as long '主機鋒嗚
public declare sub sleep lib "kernel32" (byval dwmilliseconds as long)
public declare function playsound lib "winmm.dll" alias "playsounda" (byval lpszname as string, byval hmodule as long, byval dwflags as long) as long
public i as integer
public sac() as boolean
public pubot as boolean
public conhosn as string '遠端連線的主機ip
public puport1 as integer '公用埠
public rcname as string '遠端連線的主機名
public sub sendinfor(getinfor as string)
on error resume next
if conhosn <> "" then
for i = 1 to ubound(sac)
if not i = index then
if sac(i) then
if main.scmnet1(i).remotehostip = conhosn then
' msgbox "發往:" & conhosn & "內容:" & getinfor
main.scmnet1(i).senddata getinfor
end if
doevents
end if
end if
next i
end if
end sub
public sub groupsendinfor(groupgetinfor as string)
end sub
public sub scmsend(scmget as string)
'end sub
public sub ywt_t()
on error resume next
dim w as string
select case weekday(now)
case "1"
w = "星期日"
case "2"
w = "星期一"
case "3"
w = "星期二"
case "4"
w = "星期三"
case "5"
w = "星期四"
case "6"
w = "星期五"
case "7"
w = "星期六"
end select
main.ywtlb.caption = year(now) & "年" & month(now) & "月" & day(now) & "日" & vbcrlf & vbcrlf & w & vbcrlf & " " & hour(now) & "時" & minute(now) & "分" & second(now) & "秒"
end sub
public sub combo_x()
on error resume next
dim commsgs as string
select case class="txt">case "確定"
commsgs = 0
case "確定取消"
commsgs = 1
case "終止重試忽略"
commsgs = 2
case "是否取消"
commsgs = 3
case "是否"
commsgs = 4
case "重試取消"
commsgs = 5
case "錯誤"
commsgs = 16
case "錯誤確定取消"
commsgs = 17
case "錯誤終止重試忽略"
commsgs = 18
case "錯誤是否取消"
commsgs = 19
case "錯誤是否"
commsgs = 20
case "錯誤重試取消"
commsgs = 21
case "問號"
commsgs = 32
case "問號確定取消"
commsgs = 33
case "問號終止重試忽略"
commsgs = 34
case "問號是否取消"
commsgs = 35
case "問號是否"
commsgs = 36
case "問號是重試取消"
commsgs = 37
case "嘆號"
commsgs = 48
case "嘆號確定取消"
commsgs = 49
case "嘆號終止重試忽略"
commsgs = 50
case "嘆號是否取消"
commsgs = 51
case "嘆號是否"
commsgs =
52case "嘆號是重試取消"
commsgs = 53case "訊息"
commsgs = 64
case "訊息確定取消"
commsgs = 65
case "訊息終止重試忽略"
commsgs = 66
case "訊息是否取消"
commsgs = 67
case "訊息是否"
commsgs = 68
case "訊息是重試取消"
commsgs = 69
end select
call sendinfor("msgbox3" & commsgs)
end sub
public sub combo_m()
on error resume next
dim commsgs as string
select case
case "確定"
commsgs = 0
case "確定取消"
commsgs = 1
case "終止重試忽略"
commsgs = 2
case "是否取消"
commsgs = 3
case "是否"
commsgs = 4
case "重試取消"
commsgs = 5case "錯誤"
commsgs = 16
case "錯誤確定取消"
commsgs = 17
case "錯誤終止重試忽略"
commsgs = 18
case "錯誤是否取消"
commsgs = 19
case "錯誤是否"
commsgs = 20
case "錯誤重試取消"
commsgs = 21case "問號"
commsgs = 32
case "問號確定取消"
commsgs = 33
case "問號終止重試忽略"
commsgs = 34
case "問號是否取消"
commsgs = 35
case "問號是否"
commsgs = 36
case "問號是重試取消"
commsgs = 37case "嘆號"
commsgs = 48
case "嘆號確定取消"
commsgs = 49
case "嘆號終止重試忽略"
commsgs = 50
case "嘆號是否取消"
commsgs = 51
case "嘆號是否"
commsgs = 52
case "嘆號是重試取消"
commsgs = 53case "訊息"
commsgs = 64
case "訊息確定取消"
commsgs = 65
case "訊息終止重試忽略"
commsgs = 66
case "訊息是否取消"
commsgs = 67
case "訊息是否"
commsgs = 68
case "訊息是重試取消"
commsgs = 69
end select
msgbox main.text2.text, commsgs, main.text1.text
end subjued增加
public sub combo_tfh()
on error resume next
'dim comtfh as string
if main.option9.value = true then
' case "**txt"
'comtfh = "msgtxtl"
call sendinfor("msgtxtl")
end if
if main.option10.value = true then 'case "**flash"
'comtfh = "msgswfl"
call sendinfor("msgswfl")
end if
if main.option11.value = true then 'case "**html"
'comtfh = "msghtml"
call sendinfor("msghtml")
end if
'end select
'call sendinfor(comtfh)
end sub
奧術公式一部分
一 時鐘問題 一 追及距離 格數 速度差 1 時間 1 兩針重合公式 格數 1 2 兩針垂直公式 格數15 1 3 兩針成直線公司 格數30 1 推廣 兩針成30 公式 格數5 1 兩針成60 公式 格數10 1 兩針成120 公式 格數20 1 4 兩針與某時刻距離相等 假設為相遇問題 公式 格數...
作業 第一部分
第一部分投影基本知識 一 單選題 1 已知m點在n點正前方，則m和n兩點的 b 座標值不相等。a x方向 b y方向 c z方向 d 所有方向 2 已知點m座標 10，20，10 點n座標 10，20，0 則以下描述m n兩點相對位置關係的說法哪一種是正確的？a 點m位於點n正下方b 點m位於點n正...
第一部分概述
第一章良好農業規範 gap 的發展概況 第一節良好農業規範 gap 產生的背景和概念 一 良好農業規範產生的背景 近三 四十年，農業繁榮得益於化肥 農藥 良種 拖拉機等增產要素的產生，而隨著整個農業生產水平的提高和各種農業生產要素的日益成熟，這些要素對增產的貢獻率趨減。由於農業生產經營不當導致的生態...