自動化ツールuwsc使いよ集まれ4

自動化ツールuwsc使いよ集まれ4 at SOFTWARE

1:名無しさん＠お腹いっぱい。
09/03/02 19:49:20 rP5khwz50
Windowsを自動化させるツールUWSC。
URLﾘﾝｸ(www.h7.dion.ne.jp)

uwsc使いのみなさま、ﾏﾀｰﾘ己のスクリプトを晒しましょ。

前スレ
自動化ツールuwsc使いよ集まれ3
ｽﾚﾘﾝｸ(software板)

2:名無しさん＠お腹いっぱい。
09/03/02 20:05:26 7l99ta7h0
>>1
公式サイトとかちゃんと訂正すればいいのに

3:名無しさん＠お腹いっぱい。
09/03/02 21:27:21 9PDTuTrY0
Windowsを自動化させるツールUWSC。
URLﾘﾝｸ(www.uwsc.info)

uwsc使いのみなさま、ﾏﾀｰﾘ己のスクリプトを晒しましょ。

前スレ
自動化ツールuwsc使いよ集まれ3
ｽﾚﾘﾝｸ(software板)

同様の機能を持ったフリーソフト

AutoIt
URLﾘﾝｸ(www.autoitscript.com)

WindowController
URLﾘﾝｸ(chi.usamimi.info)<)
ｽﾚﾘﾝｸ(software板)

こんなかんじ？

4:名無しさん＠お腹いっぱい。
09/03/03 18:02:08 /b8Pmjb40
>>前スレ986 ( ｽﾚﾘﾝｸ(software板:986番) )
クリックだとページ変遷が発生しないか?
a 要素の target 属性に _blank とか指定されてたら別だが
// 親要素が a の img 要素で src 属性値に特定の文字列が含まれるものをすべてクリック
// 変数 ie には対象の IE オブジェクトが代入されているものとする
DIM str = "http://～～～/Apos/img/web/10174"
DIM imgelmlst = ie.Document.images
DIM imgelm, elm, i

FOR i=0 TO imgelmlst.length-1
　 imgelm = imgelmlst.item(i)
　 elm = imgelm.parentElement
　 IF elm.tagName <> "A" THEN CONTINUE
　 IFB POS(str, imgelm.src) THEN
　　 imgelm.click()
　　 //navigate_new_window(elm.href)
　 ENDIF
NEXT

FUNCTION navigate_new_window(uri, iswait=FALSE)
　 DIM ie = CREATEOLEOBJ("InternetExplorer.Application")

　 ie.Visible = TRUE
　 ie.Navigate(uri)
　 RESULT = ie
　 IF !iswait THEN EXIT

　 REPEAT
　　 SLEEP(0.1)
　 UNTIL !ie.Busy AND (ie.ReadyState = 4)
FEND

5:名無しさん＠お腹いっぱい。
09/03/03 22:00:52 Qzu1epvm0
zip暗号では不足な用途で暗号化させるとしたら
AES256bit（無圧縮でも可）7-zip32.dll叩くのが一番簡単？

6:名無しさん＠お腹いっぱい。
09/03/03 22:30:36 vm5EEjZv0
>>5
簡単の定義が人それぞれだと思うけど
復号化する時の汎用性とかを考えたら良い選択肢だと思うよ。

完成時にはソース見せてもらえると嬉しい

7:名無しさん＠お腹いっぱい。
09/03/04 08:36:31 VY2/fRca0
シェアウェア化が痛すぎる…

8:名無しさん＠お腹いっぱい。
09/03/04 13:15:09 gDPQebo/0
?

9:名無しさん＠お腹いっぱい。
09/03/04 16:44:28 LtMPuC430
IE = CreateOLEObj("InternetExplorer.Application")
の行でたまに comエラーが出てしまいます
原因はなんでしょうか?

10:名無しさん＠お腹いっぱい。
09/03/04 22:44:16 e9V9llDo0
連想配列の値に配列って設定できないの？

　hashtbl 連想配列
　dim 配列[] = "hoge", "piyo", "foo", "bar"
　連想配列["キー"] = 配列

とか。連想配列["キー"][0] とかで値を取り出したいんだけど…。

11:名無しさん＠お腹いっぱい。
09/03/04 23:07:07 ys2pcLW80
>10
気持ちは判るw　是非多次元連想配列の要望を出してくれ…

12:名無しさん＠お腹いっぱい。
09/03/04 23:10:55 e9V9llDo0
できないのか…(´･ω･`)ざんねん

13:名無しさん＠お腹いっぱい。
09/03/04 23:26:39 ys2pcLW80
うーん　>11と書いてみたものの、データを直打ちで配列宣言する場合は殆どないから、
例えばTAB区切りデータの分解作業を入れる時に行うか、出した時に行うかくらい
の違いだけのような気がしてきたｗ

>12
ちょっとググッてみたらPerlにはあるみたいですね。

14:名無しさん＠お腹いっぱい。
09/03/05 03:06:53 +SmhvS7q0
ScriptControlを使って、VBScriptで関数書いて呼び出したくなりますね

15:名無しさん＠お腹いっぱい。
09/03/05 12:37:12 EaCn0e5y0
>>4
動作確認しました。m(_ _)m
しかし、これできそうでできない・・・

ie.Document.imagesとかってヘルプとかに載ってないしみんなどこで
勉強してるんですか？本には、いくつかie.Document.○○みたい
なのが載ってましたが。

2年ぐらいやってますが全然思ったとおりの動作ができない('A`)

16:名無しさん＠お腹いっぱい。
09/03/05 13:17:43 DySh1P490
>>15
WEBの自動化は殆どやらないから詳しくはないけれど、一応、下の公式の過去ログはPickupしてあるよ。
URLﾘﾝｸ(www3.bigcosmic.com)
URLﾘﾝｸ(www3.bigcosmic.com)

17:名無しさん＠お腹いっぱい。
09/03/05 18:14:40 ZQFae9PN0
>>15
>>4 を貼った者ですが、どこら辺でコけたんでしょうか?

所謂 IE オブジェクトのメソッドとプロパティは
MSDN で IWebBrowser2 の項目から辿っています
ドキュメントの構造は Fx の Firebug で見てます

18:名無しさん＠お腹いっぱい。
09/03/05 21:11:25 1LWRbfue0
>>15
周りに頼りきりなのに、しにうせろ、と書くような傲慢さがいやだなぁ…

19:名無しさん＠お腹いっぱい。
09/03/05 21:21:42 EaCn0e5y0
>>17
前回の画像ではなくアドレスを回っていくやつから似たようなことできると
思ってましたが、変数の宣言からして全く違いました。

例えば"A"というのありますが、そうゆう発想すらなかったです。

>>18
死にうせろは、人によりますよｗ明らかに答える意志もないのに
馬鹿にしたことを言った場合のみです。答えたくなければスルー
すればいいのに。

今度このスレで「できますよ」が書き込まれたら「死にうせろ」と
いう書き込みをするスクリプトを作ってほしいね。

えっ？また頼るのかって？ｗ　お願いしますm(_ _)m

20:名無しさん＠お腹いっぱい。
09/03/06 00:58:29 +CVUN/Ag0
できますか？ -> できます
で、なにが不満なのかさっぱり分からない。
説明して欲しいなら、最初から出来ないので教えてくださいとでも書けばいい

21:名無しさん＠お腹いっぱい。
09/03/06 08:58:31 759IdkdT0
>>19
とっとと　しにうせやがれ

22:名無しさん＠お腹いっぱい。
09/03/07 02:03:17 Qe+EoY5dO
ケータイからカキコ。
ケータイで入力できんからメール経由だけどパソコン用とケータイ用のアドレスが違うんよね。
アドレスを変換してケータイに送信できたらいいんだけど。

23:yyZEvxbNuOOjjO
09/03/07 02:07:27 4flKp1Lr0
URLﾘﾝｸ(www.esnips.com) free movie ringtone
URLﾘﾝｸ(hubpages.com) debt consolidation loan very
URLﾘﾝｸ(www.soundclick.com) dating for single

24:名無しさん＠お腹いっぱい。
09/03/12 17:58:51 htMiytqb0
質問です
2つのﾌﾚｰﾑになっているIEで2番目のﾌﾚｰﾑの文字列を取得したいのですが
どのようにすればいいのでしょうか？

25:名無しさん＠お腹いっぱい。
09/03/12 20:10:02 f2vfu1VH0
>>24
私は、フレームのアドレスを個別に表示させて対処しました。

26:名無しさん＠お腹いっぱい。
09/03/12 22:54:26 2ac77gz80
普通にframe呼べばいいんでない？
IE.Document.Frames(0).Document.innerText
IE.Document.Frames(1).Document.innerText

27:名無しさん＠お腹いっぱい。
09/03/12 22:57:31 2ac77gz80
フレームが入れ子の時は
IE.Document.frames(0).frames(0).document～

28:24
09/03/14 00:06:29 WW00fLfU0
>>25-27
thxです。>>26の方法で試みましたが今のところうまくいってません。ｽｸﾘﾌﾟﾄ自体が
わかってないため仕方在りません。もう少し頑張ってみて突破口が見いだせなかったら
また質問させていただきます。

29:名無しさん＠お腹いっぱい。
09/03/14 12:30:12 v6fI1qaH0
すみません　a.txtというのを開くにはどうしたらいいのでしょう
exce でやっても開けません

30:名無しさん＠お腹いっぱい。
09/03/14 13:35:35 nLOF2dl0P
execはあくまで「アプリケーションを実行する」のが目的なんです。
この場合の「開く」っていうのは
「テキストエディタを起動してその中でテキストファイルを表示させる」
っていう事になるので意味が違います。

普通、テキストエディタにファイル名をパラメータとして渡してあげるとそのテキストを開いてくれます。
ヘルプにはexecでパラメータをつけた場合の扱いは記述されていないのでDosCmdを使えば良さそうです。
詳細についてはヘルプでご確認ください。

ファイル名="<#DBL>C:\Users\youjo\Desktop\a.txt<#DBL>"
ノートパッド="notepad"
秀丸="<#DBL>C:\Program Files\Hidemaru\Hidemaru.exe<#DBL>"

DosCmd(ノートパッド + " " + ファイル名, TRUE)
DosCmd(秀丸 + " " + ファイル名, TRUE)

31:名無しさん＠お腹いっぱい。
09/03/15 14:15:45 MJ0s+kkcO
規制の為、携帯から失礼します。

色判定の事で質問させてください。
決まった色で判定する事はできるようになったのですが、処理のたびに微妙に色が変わってしまうため、だいたたい黄色っぽいという風に判定したいのですが、どうしても理解する事ができません。
もしよろしければご教授いただけないでしょうか？

32:名無しさん＠お腹いっぱい。
09/03/15 14:48:41 KaKZ97Wt0
>>31
UBTrek (掲示板最下部) で peekcolor で検索すると沢山ヒットしました。サンプルも掲載されています。

1165 件中 / 20件
1128 バックグラウンド　
1041 色判定の範囲　
0951 ファイルの取得　
0899 神経衰弱プログラム（トランプではなく絵）　
0734 あ　
0691 条件判断書式　
0651 色判定　
0645 多重定義回避　
0598 非アクティブウィンドウに対してのキー操作　
0379 範囲について。　
0264 peekcolor関数　
0184 Peekcolor　
0100 peekcolor　
0058 質問があります　
0031 画面のプロパティー　
0027 peekcolor　
0026 ヘルプファイル添付のスクリプト　
0024 UWSCのスクリプトについて　
0011 最小化状態のウィンドウ　
0003 select文で　

検索でHitしたｗ　しかしなんでPeekColorとかChkimgとか使いたがるんだろう？
あくまで最終手段だと思うんだけど…

33:名無しさん＠お腹いっぱい。
09/03/15 17:58:58 IZMSH5U20
そりゃおまえさん…
外部ツールとして使うためだよ。

34:名無しさん＠お腹いっぱい。
09/03/15 20:58:13 Ml9cDsd/0
UBTrek使ってみたいんだけど、何を検索しても
＞0 件中 / 0件
ってなるんだけど。何かやり方が間違ってるのかな？

環境
・Vista Business
・IE7 タブモード
・UWSC Ver4.5
・画面遷移がログを取得せずに終わってるように見える
・アンチウィルスソフト切ってもだめ

35:名無しさん＠お腹いっぱい。
09/03/15 23:40:24 KaKZ97Wt0
>>33
外部ツール？
フル画面のｹﾞｰﾑとかならともかく、普通の窓のあるアプリなら色、ｲﾒｰｼﾞで確実性が増すように
細工してる暇があったら他の方法探した方が早くて確実ってことを言いたかっただけなんだけど…

36:名無しさん＠お腹いっぱい。
09/03/15 23:45:08 IZMSH5U20
>>35
ちょっと前にゲームの画像認識で話題になったんだよ。このツール。
もちろん、通信を解析して行動する方が確実だけど。
汎用性は高いと思うんだ、このツールは。

37:名無しさん＠お腹いっぱい。
09/03/16 00:00:27 Qk5ZfeY50
uwscでエクセルを開いて指定のシートを開きたいのですがどうすればいいのでしょうか

よろしくお願いします

38:名無しさん＠お腹いっぱい。
09/03/16 01:36:12 BkAbLvKa0
>>36
ああ、ナルホド。そっち系の話ですか…
興味ないから判らんけど、それ用途ならAHKの方が向いてない？

39:名無しさん＠お腹いっぱい。
09/03/16 01:41:10 BkAbLvKa0
>>37
URLﾘﾝｸ(t_shun.at.infoseek.co.jp)

40:名無しさん＠お腹いっぱい。
09/03/16 09:45:22 Qk5ZfeY50
>>39
ちょ　それＶＢＡｗ

41:名無しさん＠お腹いっぱい。
09/03/16 11:37:57 5PpK2M3mO
COM操作でVBAとの違いは無い
ためしてみな

42:名無しさん＠お腹いっぱい。
09/03/16 21:16:43 Qk5ZfeY50
fopen("D:\Mydocumment\abc.xls")
で開かないんだけど何ででしょうか？

43:名無しさん＠お腹いっぱい。
09/03/16 21:31:30 TqPC0VEm0
>>42
>>30みたくExcelのパスとファイル名指定でいけるんじゃ？

44:名無しさん＠お腹いっぱい。
09/03/16 21:34:26 TqPC0VEm0
Excel　=　CreateOLEObj("Excel.Application") //　Excelの操作
Excel.Visible　=　True
Excel.WorkBooks.Open(FileName :="C:\Documents and Settings\a\abc.xls",　readOnly :=False)　//エクセルファイルを開く

45:名無しさん＠お腹いっぱい。
09/03/16 21:36:13 Qk5ZfeY50
ID:TqPC0VEm0　さん　ありがとう
敷居が高いねuwscは　ネットで調べても関数が全部乗ってなくて困る
ヘルプは分けわかめだし

46:名無しさん＠お腹いっぱい。
09/03/16 21:38:49 6Ib1sm5X0
RAPEAT関数で終わりのUNTILに表示画面のアドレスのあるなしで
判断しようとしてるのですが、うまくいきません。

UNTIL POS("URLﾘﾝｸ(URL)", IE.document.links[A].href) < 0

リンクのアドレスで判断しようとしたのが上ですが、どこが悪いのでしょうか？

47:名無しさん＠お腹いっぱい。
09/03/16 21:42:51 TqPC0VEm0
>>45
Googleで「UWSC Excel エクセルファイルを開く」とかいう具合に「UWSC」をつけて検索すると結構でてくるよ

48:名無しさん＠お腹いっぱい。
09/03/16 22:32:48 Qk5ZfeY50
本買って勉強したらだいぶ理解できるようになった
本家にこの本の中身丸ごとコピっておいてくれれば・・・

49:名無しさん＠お腹いっぱい。
09/03/16 23:49:24 TqPC0VEm0
はじめの一歩をやるときは本を買うのが手っ取り早いね
はじめはなんていってもなにで検索したら応えに辿り着けるかもわかんないから

50:名無しさん＠お腹いっぱい。
09/03/19 15:38:36 qhvpuXrj0
body = IEGetSrc(IE, "BODY")
body = Copy(body, Pos("<SMALL>日付</SMALL>",body), 999999) // 取得開始位置
body = Copy(body, 1, Pos("</TBODY>",body)) // 取得終了位置
body = ChgMoj(body, "<B>", "") // 邪魔なタグ
body = ChgMoj(body, "</B>", "")
dim sdat[7]
y = 0
While True
　　for x = 1 to 7 // 列
sdat[x] = BetweenStr(body, "<SMALL>", "</SMALL>", y*7+x)
if sdat[x] = EMPTY then break 2
　　next
y = y + 1
XLSETDATA(Excel, sdat, "A"+y) // 行単位で設定
Wend

これワケわかめ

51:名無しさん＠お腹いっぱい。
09/03/19 16:14:32 78bA8AOX0
これの解説書って
windowsマクロテクニックのことでしょうか？
他にもお勧めあったら教えていただきたい

52:名無しさん＠お腹いっぱい。
09/03/20 01:14:08 2vqtVJvk0
見たこともないからアレだけど、本を読むくらいならこれのﾍﾙﾌﾟのｻﾝﾌﾟﾙを
順にやって見た方が早い気がするなぁ。
ﾍﾙﾌﾟ、M$のﾍﾙﾌﾟなんかに比べて遥かに判りやすいと思うよ…
それをやって感じが判れば、後は公式のログ調べればヤリタイことの類似のｻﾝﾌﾟﾙは豊富にあるし。

53:名無しさん＠お腹いっぱい。
09/03/20 01:44:56 DsntF0Wn0
ちんぷんかんぷんなら本買った方がいいかもしれないよ

54:名無しさん＠お腹いっぱい。
09/03/20 20:43:31 2bPMwjVn0
>>52
まぁ、、もともとの下地の量にも依るんだと思うよ。
ワードくらいでエクセルは家計簿しかつけたことがないとかだとヘルプは見ても分からない…

55:名無しさん＠お腹いっぱい。
09/03/21 18:57:36 0gCxJ8aB0
確かに、命令文を書いてそれを実行させるということをしたことがない人間には訳が分からないかもしれない。
CでもVBでも何でもいいが、まずはマニュアル本の手順通りやってみて体験することは重要だと思う。

56:名無しさん＠お腹いっぱい。
09/03/21 20:04:15 RJeHjNlr0
>>54
そりゃそうだ。
Excelやったことあります。程度の人に
いきなりVBAマクロ作れっていうようなもんだからな。

それなりに敷居が高いのはしょうがない

57:横レス
09/03/21 21:23:13 bilBjxKS0
>>56
スクリプト系なら余計な前提知識がないほうがかえってはやそう

by 文字型と数値型どこ？だの実行効率どうとかコードの再利用だの今思うとどーでもいいことに迷ってた漏れ

58:名無しさん＠お腹いっぱい。
09/03/22 01:14:19 Sv/Mv62F0
>>56
Excelのﾏｸﾛを触ったことさえあれば、VBSに行くよりは敷居低いような…
で、これからcom経由で間借りするのは比較的楽だったり…

59:名無しさん＠お腹いっぱい。
09/03/22 20:51:42 t0gd/KIy0
>>57
コードをそのまま再利用しようなんてのは普通のプログラム言語にまかせて
違った利用方法には断片から再構成するのがスクリプト方式なんだよね

60:名無しさん＠お腹いっぱい。
09/03/23 19:29:22 Cm/UBSMR0
>>59
めんどくさく書いたのに結局使いまわせなくて無意味だったりするんだよね

だったら割り切って簡単さ優先のほうがいい
なら構造化までで十分だしオブジェクト指向以降は邪魔なだけ

61:名無しさん＠お腹いっぱい。
09/03/25 18:56:29 uoklUH0P0
質問です。IEtoExcel.uwsなんですけど
body = Copy(body, 1, Pos("</TBODY>",body)) // 取得終了位置
なぜこれで取得終了位置が決定できるのですか？

１文字目からPos("</TBODY>",body)文字目までってのがよくわからないのですが

62:名無しさん＠お腹いっぱい。
09/03/25 22:11:18 VLYJF0HH0
>>61
そこだけ抜き出ても誰も即答できんよ…

body = IEGetSrc(IE, "BODY")
print body
body = Copy(body, Pos("<SMALL>日付</SMALL>",body), 999999) // 取得開始位置
print body
body = Copy(body, 1, Pos("</TBODY>",body)) // 取得終了位置
print body

とログ取ってみれば理解できると思うけど？(自分ではやってみていないがｗ）

63:名無しさん＠お腹いっぱい。
09/03/25 22:18:25 ykXGJViE0
>>61
Copyって関数とPosって関数の二つを使っているんだよ

■Copy
コピー結果文字=Copy(コピー前文字, 開始位置, 終了位置)

コピー前文字="ABCDE"
開始位置=2
終了位置=3
コピー結果文字="BC"

■Pos
位置を表す数＝Pos(検索文字, 検索元の文字)

検索元の文字="ABCDE"
検索文字="D"
位置を表す数=4

つまり、bodyって変数の中にIEで取得したページの
<TBODY>～</TBODY>の<TBODY>以降「～</TBODY>」が
入ってるから、末尾の</TBODY>までの「～」部分を
取り出している

64:名無しさん＠お腹いっぱい。
09/03/27 10:31:09 AcxgdDaV0
Pro版でexe化したらAlt+F2で停止しなくなったんだけどこれ何？

65:名無しさん＠お腹いっぱい。
09/03/27 18:02:15 GuzBvoGh0
当たり前です。

66:名無しさん＠お腹いっぱい。
09/03/27 19:12:27 lMvlwR450
特定のボタン押したときに停止する命令入れない人って…

67:名無しさん＠お腹いっぱい。
09/03/27 19:46:58 dvwsWJKV0
全くのUWSC初心者なのですが、初めから丁寧に説明してくれてるサイトとかありますか？
自分でスクリプト作ってみたいと思ってます。

68:名無しさん＠お腹いっぱい。
09/03/27 20:12:35 fVsO9M+W0
IEGETDATA/IESETDATAって対象フレーム指定できる？

frameはやっぱりDocumentプロパティからがりがりいじるしかないの？

69:名無しさん＠お腹いっぱい。
09/03/27 20:33:28 fVsO9M+W0
>>67
漏れ中級者（66みたいにわからないことはあり）ですけど
uwscは仕様もヘルプも人間に優しいので
ヘルプのスクリプト→スクリプト関数→ウインドウ関連→GETIDの最後の「例）」のリンク先に
サンプルが大量にあるのを写して実行させればよいのでは？
あとはトライ＆エラーで大丈夫かと

70:名無しさん＠お腹いっぱい。
09/03/27 20:50:01 dvwsWJKV0
>>69
レスありがとうございます。
一通り目を通してみますね。

71:名無しさん＠お腹いっぱい。
09/03/28 00:39:06 CJN0OekI0
ページの表示待ちで質問があります。

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("http://○○○○○")
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate=4

これがページの表示が終わるまでは待つスクリプトだと思うのですが
○○○○○の箇所が毎回ランダムに変わる場合
どのようにスクリプトを組めばいいのかわかりません。

数種類のアドレスだけなら○○○○○の場所に数種類分のアドレスを入れればいいのですが
ランダム英数字なので、自作のスクリプトに、上のスクリプトを追加してたらキリがないのです。
○○○○○の場所が変わってもアクティブなIEウィンドウの表示待ちをしてくれる便利なスクリプトは無いものでしょうか？

説明が下手で申し訳ありません。

72:名無しさん＠お腹いっぱい。
09/03/28 01:08:30 imhwk0EW0
>>71
>UNTIL !IE.busy AND IE.readystate=4
ページ表示の完了を待つ部分はここだけ。

ランダムなURLを自動取得する部分を書かないと、同じことだけどな。

73:名無しさん＠お腹いっぱい。
09/03/30 14:11:23 bJqod+xu0
IEの画像表示を切っているときでも、特定の画像だけ表示することはどうやれば実現できますか？
手動のIEだとコンテキストメニューで画像の表示をやればできますが、それを直接やる方法など。

74:名無しさん＠お腹いっぱい。
09/03/31 03:16:16 uj3sv1g20
2009/03/31　UWSC Ver4.5a、 Pro版と Free版をリリースしました。

75:名無しさん＠お腹いっぱい。
09/03/31 10:32:20 gAjYRmVT0
DLLに配列が使えるようになったみたいだね

76:名無しさん＠お腹いっぱい。
09/04/01 19:38:02 ORgiq0uE0
FOPEN("○○.○",F_READ or F_WRITE)でappendオープンとほぼ同等になるのか・・・
（前の部分も書き換えようと思えばできるから厳密に同じじゃないけど）

素直にF_APPENDフラグつけてほしい

77:名無しさん＠お腹いっぱい。
09/04/01 20:22:58 LeFjj7N90
なんでorなんだろうな…そこはandだろ…

78:名無しさん＠お腹いっぱい。
09/04/02 01:27:10 /AIiEOlh0
ぜんぜん

79:名無しさん＠お腹いっぱい。
09/04/04 21:44:58 /d+v7qoR0
IPアドレスをワンクリックで変えるために下記のスクリプトを書きましたが、ページの読
み込み完了まで待ってくれなくてどうもうまくいきません。どこが悪いのでしょうか？

//CREATEOLEOBJで生成
IE = CREATEOLEOBJ("InternetExplorer.Application")
//IE可視化
IE.visible = True
//URLジャンプ
IE.navigate("URLﾘﾝｸ(ctu.fletsnet.com)")
//ロード完了まで待つ
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4

id = GETID("CTU設定 - Windows Internet Explorer", "IEFrame", -1)

CLKITEM(id, "ログイン", CLK_ACC)

//ロード完了まで待つ
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4

CLKITEM(id, "切断", CLK_ACC)

//ロード完了まで待つ
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4

CLKITEM(id, "接続", CLK_ACC)

80:79
09/04/04 21:49:47 /d+v7qoR0
すみませんUWSC掲示板というものを見つけたので、そちらにも書かせていただきました

81:名無しさん＠お腹いっぱい。
09/04/04 22:31:42 5o+P8JM70
>>79スクリプト自体は別におかしくない
サイトの作りでIE.busyとIE.readystateがうまく遷移しないんじゃない？
テキトーにSLEEP(5)してみるとか

82:79
09/04/05 01:07:09 506pPYQi0
>>81
UWSC掲示板にて有志の方に下記の記述を教えていただきまして、
実行したところまったく問題なく稼動するようになりました。

おそらくSLEEPでもうまくいくと思います。ありがとうございました。

WHILE !IE.busy AND IE.readystate = 4; sleep(0.05); WEND
REPEAT; SLEEP(0.1); UNTIL !IE.busy AND IE.readystate = 4

83:名無しさん＠お腹いっぱい。
09/04/08 04:14:05 /k0QiX7S0
申し訳ないのですが質問させてください
あるネットゲームで左クリックだけをおよそ10秒ごとにクリックさせておきたいのですが
それ自体はできたのですが、これをウィンドウをアクティブにしない状態（いわゆる裏マクロ）でずっと動作させておくにはどうしたらいいでしょうか？

ACW(GETID("ネットゲーム名","SFMainWindow"),0,0,1686,1077,0)
while TRUE
BTN(LEFT,CLICK,)
sleep(10.6+random(0))
wend

ACWが原因なのはわかったのですが、単純にそこを消せばいいだけという事は無いみたいで困っています、どうか宜しくお願いします

84:名無しさん＠お腹いっぱい。
09/04/08 04:55:25 fwJAXoMx0
>>83
無理。
普通のWindowsアプリなら別の方法で裏で操作できるけど、
キー・マウス必須なゲームではそういうことはできない。
WindowsAPIでならやれなくもないかもしれないけど低レベルな操作ができるやつじゃないと無理。

URLﾘﾝｸ(scripts.web.fc2.com)
こんな感じで仮想マシンでゲームを動かし、その中でマクロすればずっと裏で動作する。
そのページで紹介してるのはホストからゲストを操作するやつで裏で動作するわけじゃないけど。
ちなみに、今のVMware Workstation6.5なら３D使うのは設定画面でチェック入れるだけ。

でも仮想はやっぱりグラフィックが重いから、少々非力でも別のパソコン用意したほうがいいけどね。

85:名無しさん＠お腹いっぱい。
09/04/08 05:15:36 /k0QiX7S0
>84
三国志オンラインというネットゲーですと下のような感じで裏マクロにさせておく事ができたのですが
コレの応用とかでなんとかできないのでしょうか？

77 ：ネトゲ廃人＠名無し[sage]：2008/03/30(日) 02:26:21 ID:???
ググってもヘルプ見てもわからない人用
裏マクロサンプル

wnd_id = GETID("ここに実行させたいウィンドウ名") //ウィンドウ名の一部でもOK
ifb wnd_id = -1 then
MSGBOX("MMO名が起動していません")
exitexit
endif
MOUSEORG(wnd_id, 2)
while TRUE
Kbd(VK_8,CLICK,3) //定期的に実行したいキーの指定、この場合8を押す。
sleep(36+random(15)) //ここの数字を変えると待機時間を変更できる。現在は36秒＋15秒までランダム
wend

86:名無しさん＠お腹いっぱい。
09/04/08 05:44:52 fwJAXoMx0
>>85
アプリケーションに直接送るには対応してないのが多いんだよね。
多分DirectInputとかいうのつかってるやつには使えないんだと思う。
知らないけど。

87:名無しさん＠お腹いっぱい。
09/04/10 10:46:50 PbtivxSj0
マクロ実行中に、キー操作などで、マクロを強制的にとめることは出来ますか?

88:名無しさん＠お腹いっぱい。
09/04/10 13:23:35 BPKFh7I00
>>87
それくらいはヘルプ読んでくれ

89:名無しさん＠お腹いっぱい。
09/04/13 11:05:31 wzr692Rz0
IEをタブブラウザとして使用していて、指定の複数のページを開くようにしたいのですが、
以下（次のレス）の記述だと、アドレス欄にアドレスを貼り付けるのに失敗して、空白タブのままになる場合がたまにあります。
新しいタブを開いてからアドレス欄にアドレスを貼り付けるまでのウェイト（28行目）を長くしても同じでした。

どのように記述すればそういった問題なくIEで複数のページが開けるでしょうか？
一番いいのは、シーケンス的な処理なしにIEにアドレス渡すだけってやり方なんですが……。

IEの「タブブラウズの設定」は以下のようにしてます。
・「タブブラウズを有効にする」にチェック。
・「新しいタブの作成時には常に新しいタブへ移動する」にチェック。
・「クイックタブを有効にする」にチェック。
・「現在のタブの隣に新しいタブを開く」にチェック。

90:名無しさん＠お腹いっぱい。
09/04/13 11:06:21 wzr692Rz0
// IEの宣言(？)
Ie = CREATEOLEOBJ( "InternetExplorer.Application")
Ie.visible = TRUE

// IEを起動する
Ie.navigate( "URLﾘﾝｸ(www.yahoo.co.jp)")

// IEのウィンドウIDを取得
IeId = GETID( "Internet Explorer")

// IEのウィンドウを最大化する
CTRLWIN( IeId, MAX)
SLEEP( 1)

// マウスカーソル退避
MMV( 1, 1)
SLEEP( 1)

DIM Address[3]
Address[1] = "URLﾘﾝｸ(www.infoseek.co.jp)"
Address[2] = "URLﾘﾝｸ(www.google.co.jp)"
Address[3] = "URLﾘﾝｸ(www.goo.ne.jp)"

91:名無しさん＠お腹いっぱい。
09/04/13 11:08:39 wzr692Rz0
FOR i = 1 TO 3

　　　　// 新しいタブを開く
　　　　SCKEY( IeId, VK_CONTROL, VK_T)
　　　　SLEEP( 3)

　　　　SENDSTR( IeId, Address[i], 2, TRUE, TRUE)
　　　　SLEEP( 1)
　　　　SCKEY( IeId, VK_RETURN)
　　　　Ie_Wait( IeId)
NEXT

PROCEDURE Ie_Wait( Id)
　　　　i = 0
　　　　j = 0
　　　　REPEAT
　　　　　　　　SLEEP( 1)
　　　　　　　　IFB GETSTR( Id, 1, STR_STATUS) = "ページが表示されました"
　　　　　　　　　　　　i = i + 1
　　　　　　　　ELSE
　　　　　　　　　　　　i = 0
　　　　　　　　ENDIF
　　　　　　　　j = j + 1
　　　　UNTIL ( i >= 3) OR ( j >= 20)
FEND

92:名無しさん＠お腹いっぱい。
09/04/14 00:17:40 TCCc8Omk0
>Ie = CREATEOLEOBJ( "InternetExplorer.Application")
↑これには時間がかかるが、起動完了を待ってない。が、待つ必要もない。

>Ie.navigate( "URLﾘﾝｸ(www.yahoo.co.jp)")
↑これにも時間がかかるが、待ってない。
SLEEP()があるにはあるが、効果がまちまち

> DIM Address[3]
> Address[1] = "URLﾘﾝｸ(www.infoseek.co.jp)"
配列を１から使っているが、UWSCの配列はこの場合０から３まで
まあ
>FOR i = 1 TO 3
０を飛ばして使ってるから問題はない

>どのように記述すればそういった問題なくIEで複数のページが開けるでしょうか？
SENDSTR() ＋ SCKEY() でのページ移動をやめて
Ie.navigate( "URLﾘﾝｸ(www.yahoo.co.jp)") を使えばいい。
ほぼ確実にできるようになる。

うまくいかない原因は多分 Ie_Wait( IeId)
IEの操作ではよくある質問だけど、Navigateのあと待ちループをスルーすることがある。
キーEnter直後にはまだ前回の表示完了のメッセージが残ってるとか。
アドレスを入れる前にこのメッセージを消しておけば素通りはしなくなる。

93:名無しさん＠お腹いっぱい。
09/04/14 08:53:44 i3CXPBbq0
ie上のFLASHでログインから作りこまれているサイトを操作したいのですが
ヘルプと多少のググリではﾋﾝﾄが得られませんでした。
ご存知の型いらっしゃいましたらひんとぷりーずです

94:名無しさん＠お腹いっぱい。
09/04/14 09:23:50 /l9xSbch0
>>93
シェアウェア版のuwscにflash操作のサンプルスクリプト付いてるから見てみるといいよ

95:名無しさん＠お腹いっぱい。
09/04/14 11:04:54 i3CXPBbq0
>>94
速ﾚｽ多謝れす

96:名無しさん＠お腹いっぱい。
09/04/14 19:18:25 msqZMedl0
アクティブウインドウ内の相対座標で操作したいのですがうまくいきません。
それ用のコマンドでもありますか？

97:名無しさん＠お腹いっぱい。
09/04/14 20:01:48 QZ5xehbb0
STOPFORM(FALSE)でストップ窓出さないスクリプト実行中に
他のスクリプト多重起動できる？

-------
しかしかゆいところに手が届く言語仕様は本当に癒されるなぁ
わざわざ家で他言語のわけわかんない仕様と格闘したくないっちゅーねん

98:名無しさん＠お腹いっぱい。
09/04/14 20:31:54 /l9xSbch0
>>96
mouseorg

99:名無しさん＠お腹いっぱい。
09/04/14 20:35:32 mW/kK8aF0
>>97
＜UWSC.INI＞
NotMultiplex =　スクリプト実行の多重起動を制限します（ファイルの関連付等からの実行）
0：制限なし、 1：一つのみ、 2：二つまで（数はUWSC本体も含む）
-9：制限なし、 -1：一つのみ、 -2：二つまで（マイナス値を付けた場合には '多重起動禁止'のダイアログは出ません）

100:名無しさん＠お腹いっぱい。
09/04/14 20:48:45 msqZMedl0
>>98
ｱﾘｶﾞﾄｰ

101:89
09/04/14 20:52:08 jYCCUEGB0
>>92
回答ありがとうございます。

> Ie.navigate( "URLﾘﾝｸ(www.yahoo.co.jp)") を使えばいい。
> ほぼ確実にできるようになる。

これを単純に使用した場合、一番左のタブに指令が行くようなので
1番目のタブにyahoo
2番目のタブにinfoseek
……
といったことができませんでした。

> アドレスを入れる前にこのメッセージを消しておけば素通りはしなくなる。

消せるのですか。
調べてみますが、また分からなかったら教えてください。

102:名無しさん＠お腹いっぱい。
09/04/15 05:34:31 qgyfHlhE0
>>99うん
ずっとUWSC.INIにNotMultiplex =　0あったはずなのに多重起動できなかったから謎だった
今STOPFORM(TRUE)入りのスクリプト一回実行したら
STOPFORM(FALSE)でストップ窓出さないスクリプト実行中にもちゃんと多重起動できるようになった
一体なんだったんだろう

103:名無しさん＠お腹いっぱい。
09/04/15 06:02:54 HthVxZ2l0
>>101
新しいタブで開くならIE.navigate2の第2引数に次のどれかを指定すればいいらしい。
VBでは&H800だけど、UWSCでは$800と指定することに注意。
Const navOpenInNewTab = &H800
Const navOpenInBackgroundTab = &H1000
URLﾘﾝｸ(www.happy2-island.com)

英語なので分からないけど
Get Active Tab in IE7
URLﾘﾝｸ(social.msdn.microsoft.com)

UWSC掲示板でIE7の話題
URLﾘﾝｸ(www.google.co.jp)

どうしても既存のタブに開きたいのなら、
キー送信でタブを切り替えつつ、タブごとにGetActiveOLEObj()を実行して
それぞれのIEオブジェクトを取得すればいい。（多分できるんじゃないかな）
IE1～IE10のオブジェクトがあれば、たとえばIE5.navigate()で５つめのタブで開くとかできるでしょ。

IEオブジェクトは配列にすればスマートに書ける
dim IE[10]
IE[cnt] = GetActiveOLEObj()
IE[cnt].navigate()

104:名無しさん＠お腹いっぱい。
09/04/17 09:08:00 3eWeWjWG0
同じIDの2つのウインドウに対してそれぞれ命令文実行するのはどうしたらいいんでしょう？

105:名無しさん＠お腹いっぱい。
09/04/17 09:16:25 vJUVWnem0
ウィンドウ違ったらIDも違うだろ

106:名無しさん＠お腹いっぱい。
09/04/17 09:40:53 3eWeWjWG0
GETIDしてもクラス名とか同じなんす・・・どこか見分ける方法あるんでしょうか？

107:名無しさん＠お腹いっぱい。
09/04/17 10:19:36 7iQc6sCf0
だからIDだろ…おまえは何を言ってるんだ

108:名無しさん＠お腹いっぱい。
09/04/17 11:06:27 3eWeWjWG0
自分でも何が言いたいのかよくわからなくなりました・・・

109:名無しさん＠お腹いっぱい。
09/04/17 11:27:01 z2t7NbQ10
GETIDを使いたくてもウィンドウ名とかクラス名が同じだから取得できないってことじゃないの

110:横レス
09/04/17 16:01:13 oV5BKBHw0
>>108
109だとしたら
GETALLWIN( )で全ウィンドウのＩＤを読んでから必要なものだけ残す方向で

111:名無しさん＠お腹いっぱい。
09/04/17 19:51:44 dPRHXoSq0
>>106
見分ける方法は表示されてるテキストとかボタンとかだな。

112:名無しさん＠お腹いっぱい。
09/04/18 21:40:19 XXPYfPCL0
初心者の質問ですいませんがご教授ください。
[YES][NO]のメッセージボックスを順番に３つ出し、YESが２つ出た時点で
"YESが２つ貯まったよ"というメッセージボックスを出しOKボタンでUWSを
終わらせたいのですが、どうもうまく文が書けません。

以下のように書いてみたのですが[関数が正しく閉じていません]となって
しまいます。お願いします。

POINT = 0
IF MSGBOX("チェック１OK?",BTN_YES or BTN_NO) = BTN_YES then POINT = POINT + 1

IF MSGBOX("チェック２OK?",BTN_YES or BTN_NO) = BTN_YES then POINT = POINT + 1
IF POINT = 2 THEN MSGBOX("YESが２つ貯まったよ") AND EXITEXIT

IF MSGBOX("チェック３OK?",BTN_YES or BTN_NO) = BTN_YES then POINT = POINT + 1
IF POINT = 2 THEN MSGBOX("YESが２つ貯まったよ") AND EXITEXIT

113:名無しさん＠お腹いっぱい。
09/04/18 21:42:10 RzsxB0wk0
マルチステートメントをANDでつないでる人なんて初めて見たわ。
IFBにして行分けなきゃ駄目に決まってるじゃん

114:名無しさん＠お腹いっぱい。
09/04/18 21:53:58 wfTm4mrd0
これはひどい

115:名無しさん＠お腹いっぱい。
09/04/18 21:55:44 XXPYfPCL0
>>113
ありがとうございました。
解決しました。

116:104
09/04/19 11:33:06 cQ6R7vH10
根本から勘違いしてるのかもしれないので質問させてください。

たとえば、新規に開いたメモ帳2窓だとGETALLWIN( )しても
ウインドウIDもクラス名も両方とも「無題 - メモ帳」「notepad」で識別する方法無いですよね？

117:名無しさん＠お腹いっぱい。
09/04/19 11:45:06 yPMpTKOZ0
>>116
>>105
同じIDのウインドウなんてありません。

118:名無しさん＠お腹いっぱい。
09/04/19 11:45:06 kETpq9Eh0
いやだからウィンドウIDは違うよ

119:名無しさん＠お腹いっぱい。
09/04/19 11:57:47 8Ti6dx9WP
>>116
手動で二つのウィンドウを区別する場合、あなたはどう判断しているの？
左右に並べて右側のウィンドウが知りたいならSTATUS関数を使って座標を比較すればいいんだし

あなたは何をしたいんですか？

120:名無しさん＠お腹いっぱい。
09/04/19 12:03:17 yPMpTKOZ0
>>116
もう一つ言うと、
> ウインドウIDもクラス名も両方とも「無題 - メモ帳」「notepad」で識別する方法無いですよね？
ウインドウIDとクラス名と言ってるけど
「notepad」は、確かにクラス名だけど
「無題 - メモ帳」は、ウインドウIDじゃない。タイトルです

あなたが言ってるのは、同姓同名で生年月日まで一緒の別人をどうやって区別するんですか？
しかもその二人は、免許証番号や電話番号まで一緒なんです。って言ってるようなものです。

121:名無しさん＠お腹いっぱい。
09/04/19 14:08:17 Me2htpU20
>>120
いや、同姓同名の同住所でも免許証番号とかは違うから。
一人二役でない限りは。

>>116
うん。だから区別できないよ。
だから自分でExecとかCreateOLEObjして自分用のを作るんだよ。

122:名無しさん＠お腹いっぱい。
09/04/19 15:40:48 8Ti6dx9WP
えーそうかな？
単に「タイトル」「クラス名」「ID」の意味が分かってないだけだと思う。でないと
＞ウインドウIDもクラス名も両方とも「無題 - メモ帳」「notepad」で識別する方法無いですよね？
が全く説明つかない。
俺の解釈は以下の通り。

//2個未保存のメモ帳があって、それぞれ「AAAA」「BBBB」と入力されている想定

//104時点での考え
IDその1 = GETID("無題 - メモ帳", "notepad")//「AAAA」側のIDを取得したい
IDその2 = GETID("無題 - メモ帳", "notepad")//「BBBB」側のIDを取得したい
if IDその1 = IDその2 then MSGBOX("同じID") // だから104で「同じID」と言ってる

//109-110の重要キーワード「GETALLWIN」を聞いた116時点での考え
IDその1 = GETID("無題 - メモ帳", "notepad")//「AAAA」側のIDを取得したい
GETALLWIN() //これを使えば同名、同クラスの別IDを参照できると勘違い
IDその2 = GETID("無題 - メモ帳", "notepad")//「BBBB」側のIDを取得したい
if IDその1 = IDその2 then MSGBOX("同じID") // だから116で「GETALLWIN( )しても」と言ってる

//109-110が言ってた「GETALLWIN」の使い方
ウィンドウ数 = GETALLWIN()
FOR I=1 TO ウィンドウ数
　　IFB STATUS(ALL_WIN_ID[I-1], ST_TITLE) = "無題 - メモ帳" THEN
　　　　MSGBOX(GETSTR(ALL_WIN_ID[I-1], 1)) //「AAAA」「BBBB」が表示されるはず
　　ENDIF
NEXT

123:名無しさん＠お腹いっぱい。
09/04/19 22:15:44 yPMpTKOZ0
>>121
だから、別人という前提が間違ってる。勘違いだと言ってるんでしょ
ユニークに割り当てられているはずのものが同じならそれは別なものじゃなくて同じものなんだから

124:名無しさん＠お腹いっぱい。
09/04/20 03:19:17 EnXtAM1m0
>>123

>>116が言ってるのは別人という前提なんです。
>新規に開いたメモ帳2窓
これはメニューからメモ帳を２回クリックして２つ起動し、ウィンドウが２つある状態ということですよ。

２窓について
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)

それぞれちょっとずれたことを言ってますね。
IDは確かに一つの窓に一つで識別できるけど、
ID以外の方法で区別するのは難しいですよね。

>>104はIDとは何なのか分かってないので、IDと言ってるのは無視して考えないと。

メモ帳のステータス置いときます。
ID　　　　　　57
PARENT　　-1
PROCESS　5868
Handle　　　9635392
ICON　　　　0
VISIBLE　　1
ACTIVE　　0
BUSY　　　　0
TITLE　　　無題 - メモ帳
CLASS　　　Notepad

125:名無しさん＠お腹いっぱい。
09/04/20 08:20:00 cLKDMuVI0
>>123は端折りすぎだけど、
同じ免許書番号の別人がいないように
同じウインドウIDの別ウインドウなんて存在しないんだから
その前提が間違ってるってことだろ。

別ウインドウかどうかなんて画面で一目瞭然なんだから
IDが同じってのが間違ってるってことは確定的に明らか

126:名無しさん＠お腹いっぱい。
09/04/20 09:05:26 lfFRPe8i0
使い始めたのですがどうしても判らない点があるので教えて下さい。
WEB上でsubmitのボタンがdisabledを使用していて、一旦押すと
しばらく表記文字がグレーになって押せません。
このenable/disableの状態を取得する方法はありませんでしょうか？
宜しくお願いします。

127:名無しさん＠お腹いっぱい。
09/04/20 10:01:29 EnXtAM1m0
>>126
状態 = IE.document.all.ボタン名.disabled

HTAていうの使いはじめてみたんだけど、これいいよ。
MS Office PremiumにMicrosoft Development Environment（MSE.EXE）てのがついてて、
HTMLコントロールのプロパティとかの一覧が出てくる。
最近の開発環境なら当たり前だけど、僕が持ってるのOffice2000だからそーとー前のなんだけど。
場所は"C:\Program Files\Microsoft Visual Studio\Common\IDE\IDE98\MSE.EXE"
・・・あれ？Officeの付録じゃなかったっけな・・・
WindowsのSystemフォルダと日時が同じだからXP Homeについてるのかな？

あ、これ使う場合のファイルはHTMLファイルで、
CreateObjectする場合は別にプロパティ一覧とか出てこないけど。

128:89
09/04/20 14:54:07 AwZv06Kt0
>>103
遅レスですが、以下で新しいタブで開きました。ありがとうございました。

Ie.navigate( Address, $800)

129:127
09/04/21 10:48:50 CPJxMALFO
UWSCは当初ゲームの自動操縦のために使い始めたんだけど、
今はIEを操作することが多いんですよね。
IEの操縦ならHTAでっていうかHTML＋VBScriptにすると、画面も使えちゃって便利です。
HTMLのスクリプトならJavaScriptじゃないとって思ってたけど、
UWSCでBasic系の記述に慣れてるのと、HTAで使うのはJavaScriptじゃなくてJScriptなので、
どうせならVBScriptを使ってWeb用とHTA用をはっきり分けたほうがいいかなということで
VBScriptで行きました。
HTAで作ったツールの第一号をうｐってるんで使ってみてください。
ていうかできればコレをダウンロードして、規制されてる僕たちのために代行やってください。
URLﾘﾝｸ(karimofu.org)
標準ZIP　DLパス:siberia

130:名無しさん＠お腹いっぱい。
09/04/21 12:15:22 zWBQpk48P
>>129
どう見てもウィルスです
本当にありがとうございました

カスペルスキーインターネットセキュリティ
2009
アクセスが遮断されました
入力したURLのWebページを表示できません

入力したURL:
URLﾘﾝｸ(karimofu.org)
21be/mofu1_6055.zip

このWebページはウイルスに感染しています

次のウイルスが見つかりました:Trojan-Downloader.JS.gen

この情報が正しくないと考えられるときは、ご利用のサービスプロバイダーにご連絡ください
情報:
Tue Apr 21 12:14:05 2009
カスペルスキーインターネットセキュリティ 2009

131:名無しさん＠お腹いっぱい。
09/04/21 13:33:41 CPJxMALFO
>>130
あなたのパソコンがウィルスに感染してるか、うｐ炉だ自体がウィルスだと判定されているんだと思います。
そもそもZip圧縮されたものがウィルスとして活動できるわけないでしょう。偽装ならともかく。
AVG ClamWin Eset eTrust McAfee MicroWorld Norman Sunbelt VirusBuster の4・20の最新パターンで検索して一つも引っかかりませんでしたよ。

URLﾘﾝｸ(www.filterbit.com)
郵便補助ツール007.zip uploaded on 2009-04-21 04:13:23 AM UTC
Scan Completed in 172 ms.
Final Result NO VIRUSES DETECTED

郵便補助.hta uploaded on 2009-04-21 04:14:45 AM UTC
Scan Completed in 6.344 secs.
Final Result NO VIRUSES DETECTED

sleep.vbs uploaded on 2009-04-21 04:15:21 AM UTC
Scan Completed in 6.234 secs.
Final Result NO VIRUSES DETECTED

同じものを別のとこに置いたから、こっち↓からのダウンロードを試してみてください。
URLﾘﾝｸ(scripts.web.fc2.com)

132:名無しさん＠お腹いっぱい。
09/04/21 13:44:41 ghaE4/Ws0
>>ID:CPJxMALFO
DLする気になれないからウィルスかどうかは判らんが、HTAとJScriptの話題を続けるなら

他所でやってくれ。

133:名無しさん＠お腹いっぱい。
09/04/21 14:00:12 KISr4rZl0
>>131
帰れカスが

134:名無しさん＠お腹いっぱい。
09/04/21 14:25:54 zWBQpk48P
URLﾘﾝｸ(www.virustotal.com)
にて>>129と>>131をチェックしました。
結果は以下の通りです。
URLﾘﾝｸ(www.virustotal.com)

皆さん注意してください。
>>131が言っているのは全くの嘘、詐欺、デタラメです。
最近のウィルス対策ソフトは圧縮データをバックグラウンドで自動で解凍し、
中身に問題のあるファイルが含まれているかをチェックしています。
圧縮されている「郵便補助.hta」というファイルはウィルスです。

まだ対策が始まったばかりで未対応のウィルス対策ソフトもあります。
既に実行された方は
URLﾘﾝｸ(www.kaspersky.co.jp)
にてウィルスがどこにあるかを調査し、手動で削除する必要があります。
（無料のため自動では削除されません）

皆様、くれぐれも実行などせぬように注意願います。

135:名無しさん＠お腹いっぱい。
09/04/21 15:44:40 hCW2ez470
Trojan-Downloader.JS.gen でも何でもないけど
HTTP_GETしてるスクリプトは誤判定されるんだろうな
どっちにしろスレ違いだし、もうあきらめなー

136:名無しさん＠お腹いっぱい。
09/04/21 17:20:34 EjoW6ZpV0
落として検査してｿｰｽ見たよ

137:名無しさん＠お腹いっぱい。
09/04/21 19:21:07 hCW2ez470
俺も見たよ問題ないだろ
関数GetTextByURLだけ抜き出して>>134でチェックすると引っかかる
F-SecureとかKasperskyはあまりアテにならんってことだな

138:名無しさん＠お腹いっぱい。
09/04/21 23:19:31 KISr4rZl0
問題ないとかじゃなくてスレ違いだっつの

139:名無しさん＠お腹いっぱい。
09/04/22 17:32:54 N45Vs4AF0
初心者です
座標(X,Y)の色が黒で無いという文を作りたいです
PEEKCOLOR(X,Y)= $181818

否定の ! はどのようにつければいいのでしょうか
試行錯誤してみましたが機能しませんでした

140:名無しさん＠お腹いっぱい。
09/04/22 19:50:11 5189R7q50
<>

141:名無しさん＠お腹いっぱい。
09/04/22 21:33:39 5EWcb3vi0
思うんだが181818だけが黒じゃないよね？

142:名無しさん＠お腹いっぱい。
09/04/22 21:37:39 GhDeitu20
>>139
!(PEEKCOLOR(X,Y) = $181818)

143:名無しさん＠お腹いっぱい。
09/04/23 00:06:35 kwl9x0DH0
>>142さん
ありがとうございます
機能しました

次ページ