2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

2ch自動書き込みスクリポト

1 :名無し戦隊ナノレンジャー!:03/11/01 22:21
<?xml version="1.0" standalone="yes"?>
<package>
<job id="ierun">
<?job debug="true"?>

<runtime>
<description>(・∀・)</description>
<named
name = "URL"
helpstring = "書き込み対象スレのURL"
type = "string"
required = "true"
/>
<named
name = "Message"
helpstring = "入力メッセージ"
type = "string"
required = "true"
/>
<named
name = "ReturnPage"
helpstring = "承諾"
type = "string"
required = "false"
/>
</runtime>

2 :名無し戦隊ナノレンジャー!:03/11/01 22:22

<object id="mObjIE" progid="InternetExplorer.Application"/>

<script language="VBScript">
<![CDATA[
Option Explicit

Main

Public Sub Main()
On Error Resume Next

Dim strUrl
Dim strMes
Dim strRep
Dim objArgs

Set objArgs = WScript.Arguments

strUrl = objArgs(0)
strMes = objArgs(1)
strRep = objArgs(2)

OpenIE(strUrl)
DoIE(strMes)
EatCookie(strRep)
CloseIE

Set mObjIE = Nothing

End Sub

3 :名無し戦隊ナノレンジャー!:03/11/01 22:23
Private Function OpenIE(u)
On Error Resume Next

mObjIE.Visible = True
mObjIE.Navigate u

Do Until mObjIE.Busy = False
WScript.Sleep 1000
Loop

End Function

Private Function DoIE(m)
On Error Resume Next

Dim objDoc
Dim objFrm

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)

objFrm.Message.Value = m
objFrm.submit.Click

Set ObjFrm = Nothing
Set ObjDoc = Nothing

Do Until mObjIE.Busy = False
WScript.Sleep 1000
Loop

End Function

4 :名無し戦隊ナノレンジャー!:03/11/01 22:23
Private Function EatCookie(SearchChar)
On Error Resume Next

Dim objDoc
Dim objFrm
Dim strFrm
Dim c

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)
strFrm = objFrm.innerHTML

c = InStr(1, strFrm, SearchChar, 1)

If c > 0 Then
objFrm.submit.Click
End If

Set objFrm = Nothing
Set objDoc = Nothing

End Function

5 :名無し戦隊ナノレンジャー!:03/11/01 22:24
Private Function CloseIE
On Error Resume Next

mObjIE.Quit

End Function

]]>
</script>
</job>
</package>

6 :特撰キンバエ ◆yuQ9t.UD8o :03/11/01 22:49
∩( ・ω・)∩ ばんじゃーい

3 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)