大家好,我是公眾號(hào)3分鐘學(xué)堂的郭立員~
前言
今天找資料的時(shí)候,看到有些資料需要關(guān)注公眾號(hào)獲取驗(yàn)證碼才能訪問下載。
這種驗(yàn)證是為了給公眾號(hào)引流,可以強(qiáng)制用戶關(guān)注公眾號(hào)后,才能得到自己想要的資料。
其實(shí)我們腳本上也可以放一個(gè)公眾號(hào)二維碼讓別人關(guān)注后,給對(duì)方驗(yàn)證碼,才能繼續(xù)使用腳本。
一、制作思路
①、準(zhǔn)備一個(gè)公眾號(hào)二維碼
在公眾號(hào)后臺(tái)有二維碼下載,如果你想要給微信引流也可以放微信二維碼。
②、制作一個(gè)動(dòng)態(tài)界面
做個(gè)驗(yàn)證密碼給公眾號(hào)引流-1.jpg (60.11 KB, 下載次數(shù): 24)
下載附件
2024-7-30 16:13 上傳
這一步是讓用戶掃碼關(guān)注公眾號(hào),然后得到一個(gè)激活碼填入到界面當(dāng)中。
③公眾號(hào)設(shè)置關(guān)鍵詞自動(dòng)回復(fù)
把【驗(yàn)證】作為關(guān)鍵詞,設(shè)置一條自動(dòng)回復(fù)消息,用戶回復(fù)后可以得到一個(gè)激活碼字符串,至于激活碼內(nèi)容可以隨意設(shè)置。
④對(duì)激活碼做真?zhèn)悟?yàn)證
當(dāng)用戶點(diǎn)擊繼續(xù)按鈕后,獲取用戶填寫在輸入框里面的激活碼,如果和我們預(yù)先設(shè)置的一致,驗(yàn)證成功,可以正常使用腳本,否則直接結(jié)束腳本。
二、腳本代碼
①、動(dòng)圖界面代碼
UI.Newlayout ("驗(yàn)證") UI.AddTextView("驗(yàn)證", "填充1", "",100,20) UI.AddImageView("驗(yàn)證", "image_view", "/sdcard/pictures/wx.jpg",400,400)UI.NewRow "驗(yàn)證", "new_row_2", 600, 50UI.AddTextView("驗(yàn)證", "填充2", "",135,20) UI.AddTextView "驗(yàn)證", "文字框1", "掃碼關(guān)注公眾號(hào)3分鐘學(xué)堂"UI.NewRow "驗(yàn)證", "new_row_2", 600, 50UI.AddTextView("驗(yàn)證", "填充2", "",140,20) UI.AddTextView("驗(yàn)證", "文字框1", "回復(fù)【驗(yàn)證】獲取激活碼")UI.NewRow "驗(yàn)證", "new_row_2", 600, 100UI.AddTextView("驗(yàn)證", "填充2", "",152,20) UI.AddEditText("驗(yàn)證", "輸入框1", "",300,60) UI.Show ("驗(yàn)證")
界面核心代碼是一個(gè)圖片、兩段文字,一個(gè)輸入框,至于其他代碼都是為了控制位置讓界面看著整齊用的。
②、獲取輸入框里面的內(nèi)容
在點(diǎn)擊界面下方的按鈕后,獲取輸入框里面的內(nèi)容,然后判斷是否和我預(yù)設(shè)的激活碼一致,如果相同就提示驗(yàn)證成功,否則提示失敗并結(jié)束腳本。
按鈕點(diǎn)擊事件,這里用的是關(guān)閉界面事件
UI.SetOnClose("驗(yàn)證",驗(yàn)證激活碼)
獲取輸入框文字代碼
UI.GetText("輸入框1")
③、完整代碼
UI.Newlayout ("驗(yàn)證") UI.AddTextView("驗(yàn)證", "填充1", "",100,20) UI.AddImageView("驗(yàn)證", "image_view", "/sdcard/pictures/wx.jpg",400,400)UI.NewRow "驗(yàn)證", "new_row_2", 600, 50UI.AddTextView("驗(yàn)證", "填充2", "",135,20) UI.AddTextView "驗(yàn)證", "文字框1", "掃碼關(guān)注公眾號(hào)3分鐘學(xué)堂"UI.NewRow "驗(yàn)證", "new_row_2", 600, 50UI.AddTextView("驗(yàn)證", "填充2", "",140,20) UI.AddTextView("驗(yàn)證", "文字框2", "回復(fù)【驗(yàn)證】獲取激活碼")UI.NewRow "驗(yàn)證", "new_row_2", 600, 100UI.AddTextView "驗(yàn)證", "填充2", "", 152, 20UI.AddEditText "驗(yàn)證", "輸入框1", "", 300, 60UI.SetOnClose("驗(yàn)證",驗(yàn)證激活碼)TracePrint UI.Show ("驗(yàn)證")Function 驗(yàn)證激活碼() dim code=UI.GetText("輸入框1") TracePrint code If code = "1234" Then For 5 ShowMessage "驗(yàn)證成功" delay 1000 Next Else For 5 ShowMessage "激活碼錯(cuò)誤" delay 1000 Next EndScript End IfEnd Function
三、擴(kuò)展知識(shí)點(diǎn)
為了讓腳本人性化,其實(shí)用戶如果驗(yàn)證過(guò)一次以后,再次打開腳本就不需要驗(yàn)證了。
這里我想到的方法是用文本保存一個(gè)驗(yàn)證狀態(tài)。
在彈窗界面前,先讀取文本查看驗(yàn)證狀態(tài),如果是首次使用腳本,沒有驗(yàn)證過(guò),那么就彈窗動(dòng)態(tài)界面,讓用戶驗(yàn)證。
如果驗(yàn)證狀態(tài)是完成了驗(yàn)證,那么就不彈窗動(dòng)態(tài)界面了,直接開始運(yùn)行腳本。
=正文完= |