UWSC 掲 示 板
投稿時に「証明書が不正です」と出る場合には、JavaScriptをオンにしてください
動作不具合での質問の場合には環境(OS,IEのバージョン等)の表記もしてください
タイトルは質問内容を表したものにしてください
ネットゲーム関係の質問はご遠慮ください

GETKEYSTATE(VK_LBUTTON)とG_MOUSE_X・G_MOUSE_Yについて / 始めたばかりです
Windows10
UWSC FREE 5.2.3.0

初めまして、UWSCを使用し始めたばかりですが、
勉強を兼ねて、ブラウザーの表示を自動更新するスクリプトを作成しています。

スクリプトの内容は、更新時間を入力し、
マウスでクリックした場所を、更新時間間隔でクリックするだけです。

下記にスクリプトを記述していますが、
まず、input関数で更新時間を入力し、OKボタンと押し
次に、クリックした場所をGETKEYSTATE(VK_LBUTTON)で記憶させ
指定した時間SLEEPし、同じ場所をBTNでクリックし続けるだけです。

ですが、実際に実行させると、input関数でOKボタンを押したクリックの値が
すでに有効とされ、クリックしたい場所を記憶することができません。

下記のスクリプトの、更新秒数設定のwhile文は実行されますが、
次のクリックポイント設定のwhile文は、
if GETKEYSTATE(VK_LBUTTON) = true          すでにTRUE
mouse_x = G_MOUSE_X; mouse_y = G_MOUSE_Y  input関数でOKボタンを押した値
になっています。
何か使用方法が間違っているのでしょうか?

ただ、更新秒数設定のロジックとクリックポイント設定のロジックを
入れ替えると機能的には正常に動きます。

今後、何かを作るときの為、使用方法が間違っているのか、
こういうのもなのか、教えて下さい。
よろしくお願いします。

------

//->更新秒数設定
While True
数 = input("更新秒数を入力してください","60")
ifb VAL(数) = ERR_VALUE
MsgBox("数値を入れてください")
Continue
endif
if chknum(数) = true
break
endif
wend
//<-更新秒数設定

//->クリックポイント設定
Fukidasi("クリックする場所を指定してださい")
while True
if GETKEYSTATE(VK_LBUTTON) = true
mouse_x = G_MOUSE_X
mouse_y = G_MOUSE_Y
id = GETID(GET_FROMPOINT_WIN)
win_title = STATUS(id, ST_TITLE)
win_class= STATUS(id, ST_CLASS)
win_x = STATUS(id, ST_X)
win_y = STATUS(id, ST_Y)
win_width = STATUS(id, ST_WIDTH)
win_height = STATUS(id, ST_HEIGHT)
break
endif
wend
sleep(3)
Fukidasi()

//<-クリックポイント設定

//->更新処理
While True
Fukidasi(win_title + " 自動更新中 " + 数 + "秒", mouse_x + 10, mouse_y + 5)
Sleep(数)
winID = GETID(win_title)
Ifb winID < 0 then
Fukidasi(win_title + " は起動されていません")
Sleep(5)
Fukidasi()
Else
ACW(winID,win_x,win_y,win_width,win_height,0)
BTN(LEFT,CLICK,mouse_x,mouse_y,200)
endif
Wend
//<-更新処理

No.3739 2017/04/15(Sat) 17:24:18

Re: GETKEYSTATE(VK_LBUTTON)とG_MOUSE_X・G_MOUSE_Yについて / miles
> 数 = input("更新秒数を入力してください","60")
のクリックが残っているので
> if GETKEYSTATE(VK_LBUTTON) = true
がそのまま通ってしまいます。
その前にクリア(読み捨て)しておく。

//->クリックポイント設定
Fukidasi("クリックする場所を指定してださい")
GETKEYSTATE(VK_LBUTTON) // VK_LBUTTONをクリア
while True
 if GETKEYSTATE(VK_LBUTTON) = true

No.3745 2017/04/16(Sun) 10:40:26

Re: GETKEYSTATE(VK_LBUTTON)とG_MOUSE_X・G_MOUSE_Yについて / 始めたばかりです
返信ありがとうございます。
思った通りの動きをしました。
クリアが、こういう方法だったのは気づきませんでした。
ありがとうございます。

No.3746 2017/04/16(Sun) 13:11:43
DLL関数に渡されるフリー・ストリング・リソース / vusd
私はこのようにUWSCで使用されるDLL関数を開発しています:
I'm developing DLL function that used by UWSC like this:

// 文字列の最初の文字を取得する
DEF_DLL StringSample(string):char:test.dll
print StringSample("Hello world")

UWSCは自動的に文字列リソースを解放しますか?次に、このような関数を記述します:
Does UWSC auto free up string resource, then I write the function like this:
[C++]
extern "C" __declspec(dllexport) char StringSample(const char *s) {
return s[0];
}
[/C++]

または私は文字列リソースを自分で解放する必要があります:
Or I must free the string resource by myself:
[C++]
extern "C" __declspec(dllexport) char StringSample(const char *s) {
char first = s[0];
delete[] s;
return first;
}
[/C++]

No.3737 2017/04/12(Wed) 16:33:23

Re: DLL関数に渡されるフリー・ストリング・リソース / しゅん
私なら最初の方にします。
メモリーの解放は確保した側の責任です。

I will not free string resource.
If I find a memory leak, I will report it as a bug.

No.3738 2017/04/13(Thu) 09:13:52
DisplaySwitch.exe が起動しなくなった / YMK
Windows10 Creators Update にしてから
これまで使用していたスクリプト
exec("DisplaySwitch.exe")
が起動しなくなりました。

ファイル名を指定して実行「DisplaySwitch.exe」
では起動できます。

コマンドを使用してトグルとして使っていたので、
困っています。

解決方法があれば教えて下さい。

UWSC Pro  Ver 5.2.3

No.3730 2017/04/10(Mon) 23:36:12

Re: DisplaySwitch.exe が起動しなくなった / koi
確認してません

Win7->Win10にしたとき
タスクマネージャの起動で同様の問題が出て質問したことがあります
その時は doscmd 使うことで起動できました

なぜ exec で動かないのかということについては
明確な回答がなかったので不明です(とりあえず起動したからそれでOK)

No.3731 2017/04/11(Tue) 08:25:30

Re: DisplaySwitch.exe が起動しなくなった / YMK
doscmd("C:\Windows\System32\DisplaySwitch.exe")
でもダメでした。
(当然コマンドプロンプトからは起動できる。)

wShell = CreateOLEObj("WScript.Shell")
wShell.exec ("C:\Windows\System32\DisplaySwitch.exe")
も念のためやってみましたが、「comエラーが発生」しました。

試しにDisplaySwitch.exeをデスクトップにおいて
そこのパスを指定すると起動したので、
適当なフォルダに移動して利用しようと思います。

「Windows10 Creators Update」は出てまだ1日ですが、
何か色々有りそうです。

No.3734 2017/04/11(Tue) 15:40:26

Re: DisplaySwitch.exe が起動しなくなった / YMK
他にも(Uwsc以外)不具合が発生したので、Anniversary Updateにロールバックしたところ、
exec("DisplaySwitch.exe")
できちんと起動しました。

報告まで。

No.3736 2017/04/12(Wed) 01:29:24
プログラムが正常に動作しません / GGL
Windows10 Build 16170
UWSC PRO 5.2.3.0

読込みボタンを押しても反応がない
記録ボタンを押してSTOP。保存ボタンを押しても反応がない

私だけの環境下の問題か。
回避策があれば教えてください。

No.3735 2017/04/11(Tue) 23:41:46
Google Chromeにて / Aki
Win10での使用です。Google Chromeの任意の画面をUWSCにて認識して、その画面に応じての自動実行は可能でしょうか?
例えば、Google Chromeにて1と表示されたらAという動作、2と表示されたらBという動作という具合にです。

説明が下手で申し訳ないないのですが、どなたかご存知な方がいらっしゃいましたら教えていただけましたら助かります。

宜しくお願い致します。

No.3732 2017/04/11(Tue) 10:21:42

Re: Google Chromeにて / 雅
if 1と表示 then
 Aという動作
endif

if 2と表示 then
 Bという動作
endif

No.3733 2017/04/11(Tue) 12:10:05
インスタグラムの投稿に自動いいねする方法 / hana
実行したいこと

●firefoxにて、インスタグラムの投稿に連続いいねをしていく。


・firefox立上げ
・ログインして他の人の投稿をクリックしライトボックスのように拡大表示させる。

【↓↓ここから自動化したい】

・ダブルクリックでいいね
・キーボードの→をクリックする
・次の画像を表示
→ループ


別サイトに以下のようなマクロを利用すれば可能とあったのですが
記述した.UWSファイルを再生しても特に動きはありませんでした。

---
while true
KBD(VK_RIGHT)
sleep(2)
BTN(LEFT, CLICK)
BTN(LEFT, CLICK)
sleep(1)
wend
---


UWSCがフリーのため、マクロを読み込めていないのでしょうか?
それともマクロの内容がそもそも違うのでしょうか?

No.3727 2017/04/08(Sat) 17:45:53

Re: インスタグラムの投稿に自動いいねする方法 / hana
可能であれば、ループ回数も指定出来たらと思っています。
No.3728 2017/04/08(Sat) 17:46:45

Re: インスタグラムの投稿に自動いいねする方法 / 俄プログラマー
そのサンプルで動きがわからないのなら基礎から勉強する必要があります。

http://www.uwsc.info/sample.html#N1
http://www.uwsc.info/sample.html#N2
http://www.uwsc.info/sample.html#N13

私からは以上です。

No.3729 2017/04/08(Sat) 23:13:25
IEのIESETDATAで値が入力できない。 / POW
IEでログインサイトを表示し、自動でログインすできるようにしたいと思っています。
以下で作成しましたが、お客様コードが入力できません。
何が間違っているのでしょうか。

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = true
IE.navigate("https://bmypage.kuronekoyamato.co.jp/")

busywait(ie)

IESETDATA( IE,"******", "CSTMR_CD" )

procedure busywait(ie)
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4
FEND


よろしくお願いします。

No.3723 2017/04/08(Sat) 08:14:46

Re: IEのIESETDATAで値が入力できない。 / miles
更新待ちでスリープを入れたらどうですか?

procedure busywait(ie)
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4
SLEEP(1)
FEND

No.3724 2017/04/08(Sat) 09:07:52

Re: IEのIESETDATAで値が入力できない。 / POW
スリープを入れて解決しました。
ありがとうございました。

No.3726 2017/04/08(Sat) 11:09:56
EXECで起動しない / ケン
メモ帳(notepad)だと起動するのですが

exec("C:\Windows\System32\ncpa.cpl")

これだと何も表示されません

これは何が間違っていますか?

No.3718 2017/04/06(Thu) 08:33:28

Re: EXECで起動しない / stuncloud
これで
exec("control ncpa.cpl")

No.3719 2017/04/06(Thu) 09:30:43

Re: EXECで起動しない / ケン
表示されました。
有難うございました。

No.3720 2017/04/06(Thu) 11:07:39

Re: EXECで起動しない / しゅん
doscmd("ncpa.cpl")
もありです。

No.3721 2017/04/07(Fri) 08:55:09

Re: EXECで起動しない / ケン
表示されました。
有難うございました。

No.3722 2017/04/07(Fri) 11:07:44
UWSCで例外をスローする / vusd
UWSCで例外をスローする標準的な方法はありますか?
Is there any standard way to throw exception in UWSC?

期待される例:
Expected example:

[uws]
try
throw "Invalid exception"
except
print TRY_ERRMSG
endtry
[/uws]

これは私がそれを実装する方法です:
This is how I implement it:

[uws]
try
Utils.Throw("Invalid exception")
except
print Utils.ERR_MSG
endtry

module Utils

public ERR_MSG

procedure Throw(message = "")
try
dim a = "x"
a = 1/a
finally
ERR_MSG = message
endtry
fend

endmodule
[/uws]

No.3713 2017/04/04(Tue) 13:57:36

Re: UWSCで例外をスローする / しゅん
良い方法だと思います。
There is no standard way now.

No.3714 2017/04/05(Wed) 13:00:19

Re: UWSCで例外をスローする / vusd
あなたの情報をありがとう
This is simplified version than above:

[uws]
public ERR_MSG

procedure Throw(message = "")
ERR_MSG = message
dim a = "x"
a = 1/a
fend

[/uws]

No.3715 2017/04/05(Wed) 16:14:44

Re: UWSCで例外をスローする / stuncloud
That looks nice.
I didn't even think about throwing exception by my self since I've been so used to the "UWSC way" coding.
I might want to use it sometime.

UWSCで例外を投げるという発想がもうぜんぜんなかったんですが、いいですねこれ!

No.3716 2017/04/05(Wed) 17:52:56
ホットキーについて / KC
ソフトにとても感謝してます。ホットキーについてちょっと困った点を一つだけご報告に上がりました。
UWSCを二つ以上立ち上げて、全て動作させた場合に何かしらのミスが起きた時に最後に立ち上げたUWSCでしかホットキーを受け付けてくれないという事。
止めようと思っても残りのUWSCは止める事ができません。
MMV関数を0.1秒ごとに命令してた場合、マウスを持って行こうと思っても移動さえできません。
CTRAL+ALT+DELさえ受け付けてくれません。そうなると、もうPCの電源消すしか方法がなくなります。
もしそれ以外の回避方法があったら教えて下さい。

No.3711 2017/04/03(Mon) 11:35:48

Re: ホットキーについて / しゅん
Ctrl+Alt+Delが効かない、という事態が、すみません、信じられません。
再現するスクリプトを提示していただきたいです。
あと、OSのバージョン等を。

なお、この組み合わせは特権で割り込むため、UWSCで阻害することはほぼ不可能なはずです。
Ctrl+Alt+Delしてログオフしてしまえば、UWSCは止められると思うのですが、、、。

No.3712 2017/04/03(Mon) 16:35:46


 過去ログ(〜2017/03/22)・検索ツール


以下のフォームに記事No.と投稿時のパスワードを入力すれば
投稿後に記事の編集や削除が行えます。
200/200件 [ ページ : << 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ... 20 >> | 過去ログ ]