『壹』 用易語言怎麼連接寬頻
用易語言怎麼連接寬頻
首先
編輯框1.內容 = 到文本 (讀配置項 (取運行目錄 () + 「網路配置.ini」, 「配置」, 「賬戶」, ))
編輯框2.內容 = 到文本 (讀配置項 (取運行目錄 () + 「網路配置.ini」, 「配置」, 「密碼」, ))
其次 .
如果 (是否已在線 () = 真)
標簽1.標題 = 「已經撥號!」
.否則
標簽1.標題 = 「還沒撥號!」
.如果結束
.如果 (注冊項是否存在 (#本地機器, 「自動連接ADSL」) = 真)
選擇框3.選中 = 真
.否則
選擇框3.選中 = 假
再次
如果結束
載入皮膚 (「皮膚模塊」)' 讀加密賬戶和加密密碼 ()
如果啟動窗口.可視 = 真
如果 (編輯框1.內容 ≠ 「」 且 編輯框2.內容 ≠ 「」)
.如果 (選擇框3.選中 = 真)
手動撥號 ()
托盤 ()
_啟動窗口.可視 = 假
標簽1.文本顏色 = #藍色
.否則
標簽1.標題 = 「自動連接失敗」
標簽1.文本顏色 = #紅色
可視 = 真
.如果結束
補充:易語言是一門計算機編程語言。以「易」著稱,以中文作為程序代碼表達的語言形式。易語言的創始人是吳濤。早期版本的名字為E語言。易語言最早的版本的發布可追溯至2000年9月11日。創造易語言的初衷是進行用中文來編寫程序的實踐。從2000年至今,易語言已經發展到一定的規模,功能上、用戶數量上都十分可觀。2015年已推出易安卓,用於編譯安卓系統手機APP
『貳』 用易語言怎麼連接寬頻
我給你代碼看看,但下面的代碼需要圖片資源和皮膚模塊,如果你需要源碼把郵箱寫上,我給你發過去。
.版本
2
.支持庫
internet
.程序集
窗口程序集1
.子程序
__啟動窗口_創建完畢
編輯框1.內容
=
到文本
(讀配置項
(取運行目錄
()
+
「\網路配置.ini」,
「配置」,
「賬戶」,
))
編輯框2.內容
=
到文本
(讀配置項
(取運行目錄
()
+
「\網路配置.ini」,
「配置」,
「密碼」,
))
.如果
(是否已在線
()
=
真)
標簽1.標題
=
「已經撥號!」
.否則
標簽1.標題
=
「還沒撥號!」
.如果結束
.如果
(注冊項是否存在
(#本地機器,
「software\microsoft\windows\CurrentVersion\Run\自動連接ADSL」)
=
真)
選擇框3.選中
=
真
.否則
選擇框3.選中
=
假
.如果結束
載入皮膚
(「皮膚模塊」)
'
讀加密賬戶和加密密碼
()
讀取秒
()
_啟動窗口.可視
=
真
.如果
(編輯框1.內容
≠
「」
且
編輯框2.內容
≠
「」)
.如果
(選擇框3.選中
=
真)
手動撥號
()
托盤
()
_啟動窗口.可視
=
假
.否則
.如果結束
.否則
.如果結束
托盤
()
.子程序
_更改皮膚_被選擇
皮膚參數調整
()
.子程序
手動撥號
.如果
(編輯框1.內容
≠
「」
且
編輯框2.內容
≠
「」)
.如果
(撥號
(「@n」,
編輯框1.內容,
編輯框2.內容,
真,
標簽1)
=
真)
時鍾1.時鍾周期
=
秒
標簽1.標題
=
「自動連接成功」
標簽1.文本顏色
=
#藍色
.否則
標簽1.標題
=
「自動連接失敗」
標簽1.文本顏色
=
#紅色
可視
=
真
.如果結束
.否則
信息框
(「賬戶和密碼不可以為空」,
0,
)
.如果結束
.子程序
掛斷1
時鍾1.時鍾周期
=
0
掛斷
()
信息框
(「網路掛斷成功」,
0,
)
標簽1.標題
=
「掛斷」
.子程序
_按鈕2_被單擊
掛斷1
()
托盤
()
.子程序
_時鍾2_周期事件
.如果真
(是否已在線
()
=
假)
手動撥號
()
.如果真結束
.子程序
_選擇框1_被單擊
.如果
(選擇框1.選中
=
假)
.如果真
(信息框
(「確認取消記住密碼」,
1,
)
=
1)
選擇框1.選中
=
真
.如果真結束
.否則
信息框
(「記住密碼已應用」,
0,
)
.如果結束
.子程序
_按鈕1_被單擊
時鍾1.時鍾周期
=
0
.如果
(編輯框1.內容
≠
「」
且
編輯框2.內容
≠
「」)
.如果
(撥號
(「@n」,
編輯框1.內容,
編輯框2.內容,
真,
標簽1)
=
真)
時鍾1.時鍾周期
=
秒
標簽1.標題
=
「連接成功」
標簽1.文本顏色
=
#藍色
可視
=
假
托盤
()
.否則
標簽1.標題
=
「連接失敗」
標簽1.文本顏色
=
#紅色
托盤
()
.如果結束
.否則
信息框
(「賬戶和密碼不可以為空」,
#警告圖標,
)
.如果結束
.如果真
(選擇框1.選中
=
真)
寫配置項
(取運行目錄
()
+
「\網路配置.ini」,
「配置」,
「賬戶」,
編輯框1.內容)
寫配置項
(取運行目錄
()
+
「\網路配置.ini」,
「配置」,
「密碼」,
編輯框2.內容)
.如果真結束
.子程序
_選擇框3_被單擊
.如果
(選擇框3.選中
=
真)
寫注冊項
(#本地機器,
「software\microsoft\windows\CurrentVersion\Run\自動連接ADSL」,
取運行目錄
()
+
「\」
+
取執行文件名
())
信息框
(「設置開機自動連接成功」,
0,
)
.否則
刪除注冊項
(#本地機器,
「software\microsoft\windows\CurrentVersion\Run\自動連接ADSL」)
信息框
(「設置開機不自動連接成功」,
0,
)
.如果結束
.子程序
_時鍾1_周期事件
.如果
(選擇框2.選中
=
真)
.如果真
(是否已在線
()
=
假)
手動撥號
()
托盤
()
.如果真結束
.否則
.如果結束
.子程序
_斷線重連頻率_被選擇
載入
(窗口1,
,
真)
.子程序
讀取秒
秒
=
到數值
(讀配置項
(取運行目錄
()
+
「\網路配置.ini」,
「配置」,
「斷線重連間隔」,
「5」))
.子程序
__啟動窗口_位置被改變
.如果
(_啟動窗口.位置
=
2)
_啟動窗口.可視
=
假
托盤
()
.否則
.如果結束
.子程序
托盤
.如果
(是否已在線
()
=
真)
置托盤圖標
(#圖標紅,
「寬頻連接:(」
+
標簽1.標題
+
「)」)
.否則
置托盤圖標
(#圖標綠,
「寬頻連接:(」
+
標簽1.標題
+
「)」)
.如果結束
.子程序
__啟動窗口_托盤事件
.參數
操作類型,
整數型
.如果
(操作類型
=
1)
_啟動窗口.可視
=
真
_啟動窗口.位置
=
1
.否則
.如果結束
.如果
(操作類型
=
3)
彈出菜單
(功能,
,
)
.否則
.如果結束
.子程序
_選擇框2_被單擊
.如果
(選擇框2.選中
=
假)
信息框
(「斷線重連功能已經關閉」,
0,
)
.否則
信息框
(「斷線重連功能開啟」,
0,
)
.如果結束
.子程序
_連接_被選擇
.如果
(是否已在線
()
=
假)
_按鈕1_被單擊
()
.否則
信息框
(「你已經連接網路」,
0,
)
.如果結束
.子程序
_斷開_被選擇
_按鈕2_被單擊
()
.子程序
_退出_被選擇
_啟動窗口.可視
=
真
_啟動窗口.位置
=
1
.程序集
窗口程序集2
.子程序
_按鈕1_被單擊
銷毀
()
.子程序
_按鈕2_被單擊
.如果
(到數值
(編輯框1.內容)
<
5)
信息框
(「不可以設置5秒以下!」
+
#換行符
+
「否則會出現無限制連接的錯誤」,
0,
)
.否則
寫配置項
(取運行目錄
()
+
「\網路配置.ini」,
「配置」,
「斷線重連間隔」,
到文本
(秒))
銷毀
()
.如果結束
.子程序
_編輯框1_內容被改變
秒
=
到數值
(編輯框1.內容)
秒
=
秒
×
1000
.
全局變數
秒,
長整數型
.圖片
圖標綠
.圖片
圖標紅
『叄』 有關易語言實現自動斷開網路連接與自動連接的問題!!
簡單點的直接修改網關就行了.
netsh interface ip set address "本地連接" static 192.168.0.1 255.255.255.0 192.168.0.254 1
運行 (「netsh interface ip set address 」 + #引號 + 「本地連接」 + #引號 + 「 static 192.168.0.1 255.255.255.0 192.168.0.254 1」, 假, )
看到這些垃圾回答我就生氣!!老是有人不懂裝懂,讓我來告訴你真正的答案,希望不會太晚。
網路搜「易語言資源網」,再在網內搜「易語言WiFi密碼連接源碼」你就能找到源碼了。
易語言WiFi密碼連接源碼常式程序結合易語言XML解析支持庫,調用API函數和易語言模塊連接WiFi,僅限WIN7使用,需要wlanapi.dll的支持。