MOJISYU_C = MsgBox("記号を使いますか?",vbYesNo) If MOJISYU_C = vbYes Then '記号 PASS_WRD = PASS_WRD + "! # $ % & ? - _ ~ @" End If
'指定された条件で配列を作成 PASS_STR = Split(PASS_WRD) MAX = Ubound(pass_str) 000872007/02/08(木) 22:08:56 続き '指定された桁数のパスワードを作成 For i=0 To KETA - 1 Randomize X = abs(Int((0 - MAX) * Rnd)) PASS = PASS + PASS_STR(X) Next InputBox "パスワードが完成しました","生成完了!",PASS 0009デフォルトの名無しさん2007/02/09(金) 01:15:14 >7 どう動かないんだ。 エラーメッセージが出るならエラーメッセージを貼れ。 0010デフォルトの名無しさん2007/02/09(金) 01:18:01 BASICって何でここまで読む気が起こらないんだろう 0011デフォルトの名無しさん2007/02/09(金) 01:22:38>>10 構文が冗長だから 0012デフォルトの名無しさん2007/02/09(金) 02:01:47 まぁ、COBOLの冗長さには勝てないがな 'VB For I = 1 To 10 Next
*COBOL PERFORM VARYING I FROM 1 BY 1 UNTIL I <= 10 END-PERFORM 0013デフォルトの名無しさん2007/02/09(金) 10:20:33 >12 間違えてる。UNTILならI>10だ 0014デフォルトの名無しさん2007/04/29(日) 02:58:52>>10 字下げが取れちゃってるのも一因ではないだろうか、この場合。 0015wol.wsf2007/06/03(日) 10:59:59 <job> <script language="vbscript" src="./computer.class"/> <script language="vbscript"> Option Explicit
Const COMPUTERS = 3 Const DEFAULT_WAKEUP = 2 Dim objComputers() ReDim objComputers(COMPUTERS) Dim intNum, i, strHostnames
For i = 0 To COMPUTERS Set objComputers(i) = New Computer Next objComputers(0).setComputer "xxxxxxxxxxxx", "chitose" objComputers(1).setComputer "yyyyyyyyyyyy", "tomoyo" objComputers(2).setComputer "zzzzzzzzzzzz", "ayanami" objComputers(3).setComputer "wwwwwwwwwwww", "maya"
For i = 0 To COMPUTERS strHostnames = strHostnames & i & ":" & vbTab & objComputers(i).GetHostname & vbCrLf Next
get /export/home/backup/mysql/mysql_&YYYYMMDD&.tar.gz loop quit
と書いたテキストファイルをコマンドプロンプトで実行したら、指定したファイルは取得できました。 0023デフォルトの名無しさん2007/06/28(木) 21:12:15>>22 日本語不自由な人? 0024デフォルトの名無しさん2007/06/29(金) 01:24:58 何この糞スレ・・・ 低脳にスレ立てさせんなよ・・・ 0025VBSって面白いのか?2007/07/22(日) 23:29:16 みんな高度なプログラムかくね このくらいでいいんじゃね? ’びびらせるログオンメッセージ書き込むプログラム? msgb = InputBox("ビビらせるログオンメッセージ指定") If msg <> "" Then Set WshShell = WScript.CreateObject("WScript.Shell") Call WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "ここにメッセージでも", "REG_SZ") Call WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", msgb, "REG_SZ") WshShell.Popup("終了") Else MsgBox("書き込みキャンセルしました") End If 0026VBSって面白いのか?2007/07/22(日) 23:32:39 訂正 ×ここにメッセージでも ○メッセージ まあなんでもいいんだが・・。 0027VBSって面白いのか?2007/07/22(日) 23:36:33 これ便利じゃねえなそれに遊び心だな。 誰かウイルススレでもしよう・・・・。 0028デフォルトの名無しさん2007/07/29(日) 00:14:47 質問なんだけど s = 1
test = Array("test") Set xmlHttp = WScript.CreateObject("Msxml2.SSLHTTPS.3.0")
For i = 0 To s xmlHttp.open "POST", "test", False xmlhttp.setRequestHeader "Referer", "test" xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send "test="+test(i)+"" Next
で、https://には対応できない? Set xmlHttp = WScript.CreateObject("Msxml2.SSLHTTPS.3.0") を書き換えればいいのかな?解る方書き換え方おせーてください
For i = 0 To s xmlHttp.open "POST", "https://www.livly.com/reg/rekeep.php?", False xmlhttp.setRequestHeader "Referer", "https://www.livly.com/reg/rekeep.php?" xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send "kid="+kid(i)+"&+pname="+pnames(i)+"&iname="+iname(i)+"&nname="+nname(i)+"&pprofile="+pprofile(i)+"&iprofile="+iprofile(i)+"&entry="+entry(i)+"" Next 0029名無し2007/08/08(水) 20:23:43 無理でもない 0030デフォルトの名無しさん2007/08/11(土) 17:05:13 CreatoShortcutで NumLock状態の1をショートカットキーに適用したいのですが