自動入力の祝福と面白い実装コードを実現するためにvbsスクリプトを使用する
概要
Shakeでコードを使った番組告白が流行っているそうですね。
もちろん、私も告白するつもりはありません。
でも、なかなか面白そうですね。
そこで、vbsスクリプトについてもう少し勉強し、非常に優れた祝福のスクリプトをいくつか作りました。コードを知らない場合は、直接ポータルを突いてダウンロードできますが、自分で内容を変更したい場合は、以下のようになります。
Effect demonstration
It looks like you can't look at it, you can only click in to see it, well,,.
thoughts
Currently this script is divided into 4 panels of functions, those who want to change their own can change the content by themselves through the following explanation, or start the functions that I did not start originally
/{br
First, after downloading the program, drag it to the desktop, right click and open it with notepad, yes! Open it with Notepad, vbs scripts do not need fancy editor clouds, direct violence Notepad open, view the source code
1) The opening interactive dialog
Dim a,cut,b,Str,flag
flag=false
cut=1
a=Inputbox("Do you believe in Santa Claus in this world? ",,"Believe")
MsgBox "... "
MsgBox "Actually I am Santa Claus"
MsgBox "Although I have no gifts for you"
MsgBox "Oooh, are you angry"
MsgBox "Then I'll do a magic trick for you, okay"
a=Inputbox("Do you want to do a magic trick? ",,"Yes")
If a<>"To" Then
MsgBox "Oooh, really don't give a chance? "
Do
b=InputBox(Str+"Try it",,"No")
Str=Str&"Please"
If b<>"No"Then
flag=true
Exit Do
Else cut=cut+1
End If
If cut=5 Then
MsgBox "Okay then, goodbye! "
Exit Do
End If
Loop
Else flag=true
End If
Dim keyword is used to declare variables, of course, in vbs variables can be used without declaration, but after exiting that block, the variables will be released, all the best or declared in front, after the program should be more understandable, there are input dialog box, display dialog box, prompt input, inputbox input dialog box, the second parameter omitted, the third parameter is the default content of the input box The second parameter of the inputbox is omitted, the third parameter is the default input box content, and the things inside the double quotes can be changed by yourself.
2) Open the notepad and read the poem
If flag=true Then
Set WS=WScript.CreateObject("WScript.Shell")
WS.run("notepad"),3
WScript.Sleep 500
WS.AppActivate("notepad")
WS.SendKeys "+"
arr=Array("listen","say","you","were","abducted","sold","true","of","put" quot;,"I","scared" ,"bad","you","though","from","little","demented","dull" The","but","to","society","society" ,"no","harm","who","people","such","as"," quot;this","big","dare","dare","take","you" ,"go","sell"," I","really","for","him","worry","heart","sell","to","drop","only". quot;,"変","")
f(arr)
WScript.Sleep 3000
For i=0 To 90
WScript.Sleep 30
WS.SendKeys "{BS}"
次に
arr=Array("good","la","good","la","no","te","you","had","" quot;).
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"",""&str1&""" ;)(Window.Close)".Clipboard("""&quit;"&quit;"&quit;&quat;"""&quat;&quit;")
WS.Run(クリップボード)
For i=0 To 8
WScript.Sleep 200
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"",""&arr(i)&""" quot;)(Window.Close)".Data("&quot;&quot;"""")(Window.Data.Data)
WS.Run(クリップボード)
WS.SendKeys"^v"
次に
WScript.Sleep 3000
For i=0 To 90
WScript.Sleep 30
WS.SendKeys "{BS}"
Next
and the implementation of the f function
Function f(a)
Dim str1
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&str1&"""" ;)(Window.Close)"
WS.Run(Clipboard)
For i=0 To 47
WScript.Sleep 200
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&a(i)&""" ;)(Window.Close)"
WS.Run(Clipboard)
WS.SendKeys"^v"
If i>0 Then
If(i Mod 6=0) Then
WScript.Sleep 400
WS.SendKeys "{ENTER}"
End If
End IF
Next
End Function
vbsスクリプトをダウンロードした後、この部分が実際に開始されていないことがわかりますが、コードのこの部分が、重要な部分は私によってコメントアウトされているので、あなたが見ることができるように 'in the vb
関連
-
VBScript動的配列実装コード
-
VBSがファイルやフォルダのパス入力ファイルの絶対パスをすべて走査する(ソースコード付き)
-
VBSでよく使われる文字列操作の関数
-
txtテキストファイルを操作するvbsの共通メソッドと関数コード
-
VBSの基本 - vbscript動的配列
-
VBScript 2 json文字列をjsonオブジェクトにパースするメソッド
-
Excelのレポートを作成するVbscriptの共通操作のまとめ
-
VBSのInStrRev関数の第3パラメータ(Start)の使用に関する注意点
-
Iisext.vbsを使ったWebサービス拡張ファイルのリストアップ方法
-
Iisftp.vbsを使用してFTPサイトを一時停止する方法
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン