新規
編集
添付仕様 
30日ログインしないと蹴られる仕様
等級一般以上じゃないとギルドスキルが発動しない仕様
等級は管理者しか上げられないから管理者inするまで待つ仕様
IPと固定PTとか仲良くやってると蹴られる仕様っていうかIPと仲良くできるならここ来る意味ないね＾＾
vipG蹴られた直後にIPGに所属してる奴ｗｗｗｗｗｗｗｗｗｗｗｗ
ギルドスキル
これが一番いいかなってスキル振り
- 精神集中4（+均衡の取れた肉体1）
- アルケミーの達人5
- 英雄の犠牲5
- 逆転の機会4
- 憤怒1
経験値バーニングの時は場合によっては応援振るかも
要望があれば変えられるが他のメンバーに断り入れて忘却くらいは用意しろ
自動保守
メモ帳で以下入力
任意URLにスレのURL
a.wsf //job:ierun "任意URL" "ほしゅ" "承諾"
a.batで保存
同じくメモ帳で以下入力
?xml version="1.0" standalone="yes"?>
package>
job id="ierun">
?job debug="true"?>
runtime>
description>HTML Form 自動書込システム</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"
/>example>
Example: a.wsf /URL:http://www.google.co.jp/Message:"TEXT" /ReturnPage:"No Cookie"
/example>
/runtime>
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
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
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
Private Function CloseIE
On Error Resume Next
mObjIE.Quit
End Function
]]>
/script>
/job>
/package>
a.wsfで保存
a.batファイルをタスクスケジューラにぶっこんで終了
