pｒｏｇｒａｍｍｉｎｇ thread - 1376929533

1：フゲン：2013/08/20(火) 01:25:33 ID:oIHJ1cZo0: メモスレ
強制sage
7：フゲン：2013/08/20(火) 01:35:38 ID:oIHJ1cZo0: http://matome.naver.jp/odai/2133414178247253701
8：フゲン：2013/08/20(火) 02:11:41 ID:oIHJ1cZo0: http://2st.jp/viprs/JavaScript.html
9：フゲン：2013/08/20(火) 02:28:20 ID:oIHJ1cZo0: 今日のメモ
javaとJavaScriptは違う言語
眼から鱗
10：フゲン：2013/08/20(火) 02:29:00 ID:oIHJ1cZo0: #4
11：フゲン：2013/09/02(月) 00:43:22 ID:YccOLo/w0: <!DOCTYPE html>
<hml lang="ja">
<head>
<meta charset="shift-jis"
<title>JavaScripttとかやっちゃうところ</title>
</head>
<body>
<h1>JavaScriptとかいじってるところ</h1>
<script>
alert("見てんじゃねーよ");
</script>
</body>
</html>
12：フゲン：2013/09/02(月) 00:44:19 ID:YccOLo/w0: <script>
// 変数：　データにつけるラベル
var message = "見てんじゃねーよ";
alert(message);
</script>
13：フゲン：2013/09/02(月) 00:45:55 ID:YccOLo/w0: >>11-12
同一の命令文
14：フゲン：2013/09/02(月) 00:54:02 ID:YccOLo/w0: <!DOCTYPE html>
<hml lang="ja">
<head>
<meta charset="shift-jis"
<title>JavaScripttとかやっちゃうところ</title>
</head>
<body>
<h1>JavaScriptとかいじってるところ</h1>
<script>
// 変数：　ラベリング
var message = "見てんじゃねーよ";
var b1 = -5.5; // 数値
var b2 = false; // 真偽
var b3 = undefined; // 定義されていない
var b4 = null; // 何もない
alert(message);
</script>
</body>
</html>
15：フゲン：2013/09/02(月) 01:10:24 ID:YccOLo/w0: <script>
// 演算子いろいろ

// 代入演算子　＝　（右辺を左辺に代入する記号。数学のイコールとは別物）
var x = 5;

// 文字列に関する演算子　＋　（文字列を連結する場合に使用する）
var s = "おちんぽ" + "見せい";

// 数値に関する演算子　＋　－　＊　／　電卓ツールに表示されてるのと同じってこと
var x = 5 + 5; // プラス
var y = 5 - 5; // マイナス
var v = 5 * 5; // かける
var w = 5 / 5; // わる
var q = 5 % 5; // 余り

</script>
16：フゲン：2013/09/02(月) 01:23:00 ID:YccOLo/w0: <script>

// 数値に関する演算子　続き
var x = 1;
x++; // x = x + 1; ここで２
x--; // x = x - 1; ここで１。１ずつ増やしたり減らしたり

// 代入を伴う演算子
x += 5; // x = x + 5; 6
x *= 5; // x = x * 5; 30

</script>
17：以下、名無しにかわりましてうんｋがお送りします：2013/12/27(金) 12:24:25 ID:ApPj9wz.0: じまんきょ
18：以下、名無しにかわりましてうんｋがお送りします：2016/02/01(月) 20:27:28 ID:DjdBb8v60: <?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 = "mail"
helpstring = "入力メッセージ1"
type = "string"
required = "true"
/>
<named
name = "Message"
helpstring = "入力メッセージ2"
type = "string"
required = "true"
/>
<named
name = "ReturnPage"
helpstring = "承諾"
type = "string"
required = "false"
/>
<example>
Example: a.wsf /URL:http://www.google.co.jp /mail:"TEXT1" /Message:"TEXT2" /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 strMai
Dim strMes
Dim strRep
Dim objArgs

Set objArgs = WScript.Arguments

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

OpenIE(strUrl)
DoIE(strMai)
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>
19：以下、名無しにかわりましてうんｋがお送りします：2016/02/01(月) 20:27:52 ID:DjdBb8v60: a.wsf //job:ierun "http://vipper.2ch.net/test/read.cgi/news4vip/1454084898/" "age" "新規ちゃんおいで" "承諾"
timeout /T 4
taskkill /F /IM iexplore.exe /T