ひとりゴト

[プログラミング] カテゴリの記事

全32件 (32件中 1-32件目)

1

• ChatGPTに質問したほうが早い

  「ggrks」とかいう古の呪文攻撃を食らわないように自力で調べる癖がついていて、特にPC系に関しては他人に質問などしないように過ごして来た。実生活では聞ける水準の相手がいないし自分で調べた方が大抵早く解決するし。しかし、人間以外が相手なら気軽に何でも何度でも質問できるので、試しにプログラミング中、ぱっと見では原因のわからないエラー吐いた際にChatGPTで「◯◯エラーがでる原因と対処方法を教えて」と質問したら即解決。これは本当に楽だ。気楽で楽だ。プログラミングが楽しくなる。「ggrks」でなく新たに「◯◯rks」のような呪文が生まれるのかな。いやないか。

  2023年09月09日

  コメント(0)

• ChatGPT Plus支払い完了

  ​​​​​​BingChatとChatGPT混同して日記書いてしまっていて、まぁいいやと思いつつ、前の記事は修正しといた。BingChatか無料版ChatGPTで十分かなと思いつつ、応援の意味も込めて支払いしといた。これをきっかけに毎日のように何かしらコード書く癖をつくと良いが・・・。生成されたコードそのものの品質がどうであれ、自分の知らない手法を知る機会となるのが良いと思う。自分の狭く浅い知識を元にいきなりコードを書き始めると、​​例え目的を達成できたとしても非効率なやり方なのかもしれず、他の簡単・効率的な方法があったと気がつくきっかけになりそう。

  2023年09月09日

  コメント(0)

• ChatGPTをプログラミングに活用してみた感想

  Microsoft Edge の Bing Chatで簡単にChatGPTの使用感を試せると見かけたので、特に期待せず1日ほどプログラミングの補助として使ってみた率直な感想としては、想像以上。単体部品の作成を依頼するような利用形式でなら間違いなく使える。目的を絞って明確に伝えれると、そのままでも動くようなコードを生成？してくれた。生成されたコードには、肝心の部分の抜け、目的外の無関係な情報が混ざる、情報が古く特定環境でしか動作かない、といった場合があったが、問題点と細かな条件を指定するとなんとか形にはなる。明らかに無用な箇所は削ればいいし。使用する関数まで指定してもそれを全く使用しないコードを生成してくることがあり、どうにも埒が明かないなと感じたら、こちらから答えに誘導してやると良さそうだ。◯◯だと△△が発生するので、□□を使用して～、のようにすると目的に限りなく近いコードを生成してくれた。生成されたコードに対し気がついた点があって、「3行目で◯◯してるけど、この場合は不要だよね」と伝えると「～は不要です」と返答。うん、すごい。聞き方が丁寧過ぎたのかオウム返しっぽい感じもしたけど、指摘結果も学習してくれるんだろうか。そうであることを願う。どうしても目的のコードを生成してくれない場合は、自分で作成したコードを見せてやれば学習結果として蓄積されるのかな。結果をどこかで公開しておけば何らかの形で活かされるんだろうけどね。無料版ChatGPTでも充分のようだが、ChatGPT Plusは月額2,700円か。その程度でより質の高い結果、早いレスポンスが得られつつ、もっと活用しなければと学ぶ機会が増えるという相乗効果も期待できるならお安いかな。1日100円未満でブースト掛かるなら安すいもんでしょ。

  2023年09月09日

  コメント(0)

• 【Excel】「ピボットテーブルのフィールド」のモデルのテーブルの名前の変更方法

  「データ」の「データモデルの管理」を開くと下に対象のテーブル名があるので、そこをダブルクリックして直接編集または右クリックメニューから「名前の変更」ができる。結果を先に書いておいた。以下はタダのひとりゴト。日記のタイトルにある箇所に複数の接続があると複数表示されていて接続名を変更しても変わらない。「クエリと接続」からプロパティを開いて接続名を変更できるぞ、という内容ばかりで困ってたんだよね。検索の仕方が悪かったんだろうが、自分で色々と触ってた方が早く解決する場合もある。

  2022年11月07日

  コメント(0)

• powreshellでExport-Csvで出力した結果が文字化けする原因

  エンコードをdefault、oem、utf8に指定しても文字化けして、よく確認したらps1ファイルがutf-8ではなかったのが原因という・・・。Powershellのバージョンだとかエンコード指定が間違ってたとかそんな問題ではなかった。エディタ上は普通に文字が表示されてるから気がつけず、スクリプト内でテスト時に記載した2バイト文字を出力した際に判明。これと全く同じことを何年も前にやらかしてたのに、すっかり忘れてた。軽く確認したらSJISやUnicodeとか他にもあった。たまたま目に入ったテキストファイルの拡張子をps1に変更して使ってたんだろうか。そういえば以前、正規表現で一部漢字だけがマッチしないみたいなケースがあった気がするが原因は同じだろう。スクリプト内で直接マッチパターンを2バイト文字で書いてたから。

  2022年08月26日

  コメント(0)

• ExcelVBAユーザーフォーム表示で一定時間フリーズ

  ボタン配置したフォームを表示するとユーザーフォームが灰色表示でExcelが一定時間フリーズした状態になり、数分待機で正常な表示に戻り操作可能となる。続けて使用しているうちに上記現象が発生しなくなるという問題が発生していたが、ユーザーフォーム表示の前の処理で画面更新止めてたのが原因だったようだ。Application.ScreenUpdating = Trueこれをユーザーフォーム表示前に入れただけで解決した。ユーザーフォーム初期化時でも良いのかもしれない。上記現象はExcel2013のみ？で発生を確認していて、ググっても解決方法見つけられず、しばらく放置して問題なのでメモしとく。2022/08/26追記多数orサイズの大きなブックを開いていることが原因かもしれない。サイズの小さなブックでユーザーフォームを一度表示したあとは発生しない・・？

  2022年08月21日

  コメント(0)

• UWSCR開発支援

  ​WindowsPCで何気なくやっている繰り返し作業を自動化できるツール、「UWSC」の互換ツールの作成が進んでいるようだ。https://community.camp-fire.jp/projects/view/336074能力の高い人が職を失っているっていうのは社会においての大きな損失。どっかのお金持ちか企業が支援したりしないもんかな。わずかばかりではあるが毎月支援することにした。これまでUWSCで得てきたものに比べれば本当にわずかだ。

  2022年05月08日

  コメント(0)

• エクセルのセルの結合という悪をマクロで対処

  Excelのシートをデータベースとして利用したい場合に結合セルが邪魔になるケースがある。簡単に結合解除して利用できればな、マクロでどうにかしたい場合。'範囲の結合されたセルを解除するマクロ  For Each r In rng　'rngはSelectionなりActivesheet.UserdRangeなり    If r.MergeCells Then      With r.MergeArea        .UnMerge '結合解除        .Value = .Resize(1, 1).Value'解除後にセルに値をセット      End With    End If  Next・・・そもそも、資料作成者はなんでセルの結合使うのかね・・・

  2021年05月04日

  コメント(0)

• MS社製RPAツール「Power Automate Desktop」

  え、Chrome、Edge、Firefoxまで自動化できちゃうのか。WebDriver不要？UWSC不要になっちゃう？どこまで細かく制御できるのかによるけど、コード書かずにある程度のことはできるんだもんな。便利そうだ。将来的にWindows10標準搭載されるようになるらしいが、職場で使用許可降りるのか・・・？という懸念があるけれども、使えたとして使いこなせるであろう人が居ないってのがな。。。自作の単純なツールですら引き継いでくれる人いない。。。ある程度使えるようになっておいて損はないはずだ。時間見つけて触っておこう。

  2021年04月14日

  コメント(0)

• ブラウザ自動化でラジオボタンの操作のメモ

  ラジオボタン(type="radio")のチェックがうまくいかなかった。要素.checked = trueだけでは見た目に反映されず、その後の処理がチェックされていない前提で進む為、要素.checked = trueの後、要素.click()を入れることで解決。click()だけだとチェックも入らない。イベントを走らせる必要があるのだろうが方法が不明。あとは各処理の後、少し待機させるのが無難か。通常のマウス操作でクリックすると、他の要素が変化するがclick()で変化しない場合、対象のouterHTMLを確認・編集する事で解決したり。----------------------------------------------------------未だにInternetExplorer.Application使ってる。WebDriverだと自動操作してるのがバレバレっぽいので。

  2020年08月08日

  コメント(0)

• IE.NAVIGATEとIE.NAVIGATE2

  IE.NAVIGATEが高確率で失敗するケースがあり、ここ数日モヤモヤしてたんだけど、IE.NAVIGATE2にしてみたら、あっさり解決。引数はURLのみ。Win7,IE11。

  2017年03月06日

  コメント(0)

• 最近UWSCでやったこと

  1)ニコ動見てると「「400 - Bad Request」」が頻発。　nicovideo.jpのCookie削除してもすぐ再発し　そのたびに更新ボタンを押していたので、　自動再読み込みさせるようにした。　作成時間数分。2)AVAのログインからのゲーム起動が手間だったので自動化した。　作成時間数分。　自動起動またはフォームへの自動入力ツールはあるのは知ってたけど、　自分で作ったほうが安全だし仕様変更にすぐ対応できる。3)バイトで色々と。作成時間数時間。　作業内容によっては人が要らなくなる。。。4)ハローワークの検索条件の入力が面倒だったので自動化した。　作成時間数分。　UWSCを使ったお仕事を探すならクラウドワークスかなー。うん、便利だなやっぱり。UWSC。面倒だから自動化したいなって思った作業を簡単な記述で実現できるのはいい。

  2015年05月02日

  コメント(0)

• UWSCで範囲選択

  範囲選択時に線がだせたらなーって思ってお試し。※いろいろ間違えてるかも。def_dll CreateDCA(string,string,string,string):long:gdi32.dlldef_dll DeleteDC(hwnd):long:gdi32.dlldef_dll DrawFocusRect(hwnd,{long,long,long,long}):long:User32.dlldef_dll InvalidateRect(hwnd,{long,long,long,long}):long:user32.dll dc = CreateDCA("DISPLAY","DISPLAY",null,null)while getkeystate(vk_ctrl)=false;sleep(0.01)//CTRL押しで抜けて終了　　x = g_mouse_x;y=g_mouse_y　　ifb getkeystate(vk_lbutton) then//左クリック時に　　　　mouX = g_mouse_x;mouY=g_mouse_y　　　　while getkeystate(vk_lbutton);sleep(0.05)　　　　　　x = g_mouse_x;y = g_mouse_y　　　　　　x1=MouX　　　;y1=MouY　　　　　　x2=x　　　　;y2=y　　　　　　ifb x1 > x2 then 　　　　x2 = mouX;x1 =x//始点終点の入れ替え　　　　　　endif　　　　　　ifb y1 > y2 then　　　　　　　　y2 = MouY;y1 =y　　　　　　endif　　　　　　hwnd = idtohnd(getid(get_frompoint_win))　　　　　　InvalidateRect(null,x1-2,Y1-2,x2+4,y2+4,1)//無効領域。+4とかはいらないかも　　　　　　sleep(0.05)//ちょっと間を置かないと線が消える　　　　　　drawfocusrect(dc,x1,y1,x2,y2)//四角い線を書く　　　　　　//クリックされている間待機させチラつき防止 　　　　　　while x = g_mouse_x and y = g_mouse_y;sleep(0.01)　　　　　　　　if getkeystate(vk_lbutton) = false then break　　　　　　wend　　　　wend　　endifwend deleteDC(dc)

  2014年05月13日

  コメント(0)

• UWSCでPNG保存

  調べてみるとなんかメッチャめんどくさそう。。ファイル名指定するだけで変換してくれるようなのないかなーと検索してて、とりあえず「imgctl.dll」というのを試してみた。def_dll DIBtoPNG(string,long,bool):long:imgctl.dlldef_dll ToDIB(string):long:imgctl.dlldef_dll DeleteDIB(long):bool:imgctl.dllDIB = ToDIB("test.BMP")DIBtoPNG("test.PNG",DIB,0)deleteDIB(DIB)※宣言の仕方、引数はよくわからずやってます。たぶんどっか間違ってます。結果はどうなったかというと。。。ヽ(｀▽´)/とりあえず目的が果たせた。作者様、ありがとうございます。宝物にします。-----------------------------------画面からキャプチャしてPNG保存みたいな事できるかな・・・？def_dll GetDC(hwnd):long:user32.dlldef_dll ReleaseDC(hwnd,hwnd):long:user32.dlldef_dll DIBtoPNG(string,long,bool):long:imgctl.dlldef_dll DCtoDIB(hwnd,long,long,long,long):long:imgctl.dlldef_dll DeleteDIB(long):bool:imgctl.dllwid = getid(get_frompoint_win)hwnd = idtohnd(wid)DC = GetDC(hwnd)if DC = 0 then exitDIB = DCtoDIB(DC,g_mouse_x,g_mouse_y,100,100)//デバイスコンテキストからDIBtoPNG("test.PNG",DIB,0)//保存deleteDIB(DIB)//必ず破棄ReleaseDC(DC,hwnd)//必ず開放doscmd("start test.png")//関連付けられたプログラムで開くヽ(｀▽´)/

  2014年05月12日

  コメント(0)

• 画面に収まりきらないウィンドウ処理

  低解像度(800*640)には非対応のソフトにたまーに遭遇する。小さいPC大好き人間にとっては大問題。動くけれども画面の外にウィンドウがはみ出てしまう場合があって、OKボタンなんかが画面の下にあってマウスでは押せない状態になるわけだ。ALT+SPACEでウィンドウ移動のできないソフトがあっても、そのソフトの使い方を知っていればキーボード操作で何とかなるんだけれど。。。UWSCで何とかできないかと書いてみた。マウスが画面端に行った時に、アクティブウィンドウがはみ出ていれば移動する処理。///*まずはスクリプトの複数起動防止id = getid(GET_THISUWSC_WIN)st = status(id, st_title); sc = status(id, st_class)id = getid(st, sc)ifb id > 0 then    ctrlwin(id,close)    exitendif//多重起動防止*/while true;sleep(1)    id = getid(get_active_win)    if id < 1 then continue//不要かもしれないけど何となく    if status(id, st_icon) then continue//アイコンなら    if !status(id, st_visible) then continue//不可視なら    //ウィンドウのXY座標、幅と高さ、マウス座標とかを代入。    w = status(id, st_width); h = status(id, st_height)    //解像度に収まるウィンドウならば//    if g_screen_w > w and g_screen_h > h then continue//ここはコメントアウトしておいて、とりあえず動作確認。    x = status(id, st_x); y = status(id, st_y)    mX = g_mouse_x; mY = g_mouse_y    ifb mX = 0 then//左にマウスがあれば        if x < 0 then x = 0        acw(id, x, y)//座標変更    endif    ifb mX + 5 > g_screen_w then//右に        if x + w + 1 > g_screen_w then x = g_screen_w - w        acw(id, x, y)    endif     ifb mY = 0 then//上        if y < 0 then y = 0        acw(id, x, y)    endif     ifb mY + 5 > g_screen_h Then//下        if y + h + 1 > g_screen_h then y = g_screen_h - h        acw(id, x, y)    endif wend----追記----しばらく動かしてて気が付いたけど、最大化されたウィンドウも処理対象になっちゃう。対処方法として思いつくのは、解像度内にウィンドウサイズが収まれば処理対象外とする条件を途中に入れる。。。メンドクセ('A｀)if (x > -5 and y > -5) and ((x + w) < (g_screen_w + 20) and (y + h) < (g_screen_h + 20)) then continue常駐させてるスクリプトでは、特定タイトルの時だけ実行させるようにしとこ。

  2007年07月16日

  コメント(0)

• UWSC Pro

  http://www.uwsc.jp/無料版と有料版とが用意されたわけか。これまで長い事お世話になってるからレジストしとく。そのうち開発環境も用意されるんだろうか。ちょっとした間違いで全く関係の無い所がエラーだよっ、て言われる事があるので（これらはレジスト後に報告するかも）その部分を補助してくれると助かるんだけど。---追記---さっそくEXE化を試してみたら、---------------------------16 ビット MS-DOS サブシステム---------------------------c:\uwsc\script\test.exeNTVDM CPU は不正な命令を検出しました。CS:2733 IP:0245 OP:f0 14 00 00 00 アプリケーションを終了するには、[閉じる] を選んでください。---------------------------閉じる(C) 無視(I) ---------------------------DOS窓開いてこんなメッセージが表示された。うーん・・・。一番巨大なスクリプトだったからなー。問題個所を絞り込んでから報告しないとな。

  2007年03月23日

  コメント(0)

• 画面の任意の場所に画像を表示させる2

  (過去の日記)■画面の任意の場所に画像を表示させるhttp://plaza.rakuten.co.jp/dmaster/diary/200606100000/シンプルな方法を見つけたのでメモ。「ファイル名を指定して実行」から「mshta http://google.co.jp/」と入力するとWebページが表示されるだけでツールバーなどは表示されない。これを利用するとEXEC()かDOSCMD()で画像のみを表示させる事ができる。ローカルファイルはパスに空白を含む事があるので、その場合は「"」(ダブルクォート)で括る。UWSCではを使って次のようにする。(例)「EXEC("mshta C:\My Documents\My Picutre\sample.jpg")」(参考)■「ファイル名を指定して実行」の便利な使い方（その1）http://www.itmedia.co.jp/bizid/articles/0703/02/news115.html「mshta」でググってみると危険かも？な情報が見つかるけど、実際どうなんだろ。念のためにmshtaが外部との通信を遮断しとくといいかな。

  2007年03月06日

  コメント(0)

• GETIDはコストの高い処理

  CPUの冷却ファンが忙しそうに回っているので、GETID()を多用しすぎているからかなーと思って必要な時にだけ取りに行かせる形にしたらCPU負荷激減。最初はSHIFTを押した時のみ実行させる形だったけど、LBUTTON,RBUTTON,ENTER,ALT,CTRLも含めるようにした。UWSC本家BBSに関連した書き込みがあった。CPU別の実行回数はCPU選びの参考にさせてもらうかも。http://www3.bigcosmic.com/board/s/board.cgi?id=umiumi&mode=all&no=551

  2007年02月20日

  コメント(0)

• UWSC Ver4.1c

  更新直後にDLして早速使ってみたけど、すぐに前のバージョンに戻した。SETSLIDER()関数で範囲チェックエラーが出るので。実行結果には問題無いんだけど・・・。で、他の方々から報告がありそうなもんだと様子見してるんだけど、まだ誰も・・・って事は、こちらに原因があるのかもしれない。まぁ、追加関数とかを使わなければVer3.0を使い続けても良いわけで。----ここ数日、使っているスクリプトを別サイトで公開しようかと整理してたんだけど、公開できるレベルに至らず。希望する結果が得られれば内容なんてどうだって良いんだろうが、・・・汚いというか拙いというか。行き当たりばったりで書いてるから統一感がないんだよなぁ。

  2006年12月11日

  コメント(0)

• 音量調整.UWS

  さっき作ったスクリプトを日記に書いてみる。短くて単純。Win標準付属のボリュームコントロールというプログラムを操作して音量を調整するという内容。PC環境によって設定値は異なるので最初の二行は要変更。Volは0で最大、255で最小。Mas = 5;MasVol = 110//5番目のマスターを中の上(110)に。Mic = 9;MicVol = 0//9番目のマイクを...//ボリュームコントロールが起動していなければ起動。id = getid("ボリューム コントロール")if id < 0 then id = exec("sndvol32.exe /s")//sオプションで小さいウィンドウ。rオプションで録音コントロール//スライダーを操作して音量を調整する。setslider(id, MasVol, Mas);setslider(id, MicVol, Mic)これをタスクスケジューラで指定した時間に呼び出して使う。作成した理由は、パソコンでラジオを録音している時、普段は録音中にパソコンからラジオの音が聞こえないよう消音状態になっているんだけど、リアルタイムで聴きたい日時にだけ、マスターとマイク（ライン）ボリュームを上げたいから。これだけなら、VBスクリプトでレジストリ操作するだけでも出来るかもしれないけど、やっぱりUWSCが好きなんで。スクリプトを編集しなくても他の環境でも使えるようにするのが理想かな。UWSC.EXE 音量調整.UWS マイク=0 WAVE=100　みたいな感じで。----その音を出したい日時は土曜１４時。サタデー・ホットリクエストというNHK FMの番組が流れている。その時間には、ちょうどバイト前だと知らせるアラームが鳴るので、ついでに音を出しちゃえというわけだ。この番組のパーソナリティーによるグタグダぼけぼけトークは別につまらなくもないし、毎回登場するゲストを目的に毎週録音して聴いている。こういっちゃ失礼かもしれないがゲストはマイナーな人が多い。　だ　が　そ　れ　が　い　い　。だってヲタだもの(｀・ω・´)録音しておけば聴きたくない部分は飛ばせて、トーク部分を倍速再生(速聴)して時間の節約にも。聴きたくない部分については秘密。まぁNHKが媚びてるアレだ。アノ情報はどうでも良いを通り越して嫌悪感を感じるほどになった。・・・つーか今、まさに流れてる。この時間だけMicVol=255にしちゃおうか。

  2006年11月25日

  コメント(0)

• KeyUpAll.uws

  以下、常に実行させているスクリプトの一部。　//マウスポインタ下にあるオブジェクトIDを取得。　ObjID = GETID(GET_FROMPOINT_OBJ)　//指定したウィンドウIDのクラスを取得。　ObjClass = STATUS(ObjID, ST_CLASS)　//オブジェクト名で分岐　Slect ObjClass　 Case "Internet Explorer_Server";Call ObjIE_Server.uws　　Case "EDIT";CALL EDIT.uws　 Case…こんな形で分岐させて、OEのメールやWebページを閲覧中の動作を自分好みにしてたら、KBD(LEFT)などという些細な間違いを繰り返していた為か何れかのキーが常に押された状態になり、スクリプトを終了させても元に戻らなくなった。例えばWebページや文字入力欄なんかをクリックすると意図せず範囲選択されてしまう状態に。再起動しようかと思ったけどスクリプトの作成と実行は可能だったので　ctrlwin(getid(get_thisuwsc_win), activate)　for i = 0 to 200;sleep(0.01);kbd(i,up);nextこれで解決。全部(?)のキーを上げちゃえーって内容。一行目は他のアプリにKBD(i, UP)が送られて誤動作しないよう、念のため。ほんの数行のスクリプトだから書く時間は10数秒なわけだけど、スクリプト名を考える方に時間を費やしてしまう事がある。変かもと思いつつKeyUpAll.uwsに決定。まぁ拘る程のもんじゃない。巨大スクリプトも名前よりも内容のわかりやすさ。後から見てすぐにわかるようコメントを入れないとなー。

  2006年11月24日

  コメント(0)

• 桜エディタ

  ※2chの自動化ツールuwsc使いよ集まれを普段見てない人には何の事かわからないと思うけど。2chでUWSCのヘルプが糞だと文句言ってる輩に憤りを感じつつ放置。道具を上手く使えないからって説明書のせいにすんなって^^;使い難いと思ったら自分で作って公開or提供したらいい。ユーザーが補助できる領域なんだから、作者さんには無用な負担を掛けないようにね。(良い意味で要望があっても応じないと思うけど)無料で使わせてもらってるんだから文句なんて言えない。あちらにこれだけでも貼ってくるかね。桜エディタ　設定からUWSCヘルプを指定するとF1キーで定義場所へ飛べる　辞書ファイルを入れるとCTRL+SPACEで入力補完できる　　　　-*-*-*-*-*-*-*-*-*-*-*800番台の「DOSCMDでXCOPYが使えない」ってあたりから糞好きが粘着してるんだよな。DOSCMDの問題は代わりに報告しようかと思ったけど、[ユーザーが報告して作者さんが修正]というのはソフトウェアの発展に貢献する行為だと思ってるので、それを横取りするようなマネはしたくなかった。彼が2chでうだうだやってるのは、「もし間違ってたら」という気持ちがあるからだと思ってた。まさかウ○コ投げつけられそうになるとは・・・何度か検証に付き合ったのに( ﾉД`)

  2006年06月20日

  コメント(3)

• 画面の任意の場所に画像を表示させる　

  本家BBSに書こうかと思ったけど、情報として役に立たないのでBlogでひとりゴト。http://www3.bigcosmic.com/board/s/board.cgi?id=umiumi&mode=all&no=34&log=ON&cnt=1golbさんスゴイ。パッと見では何をしているのか理解できなかった。ボクはIEで画像表示させてToolbarなどを非表示にするなどIEのパーツ(コントロール)を操作してみては。と回答しようとして止めてた。サンプル書くのが面倒だったから。自分も使うのなら書いたかも。日本語プログラミング「なでしこ」でも目的の事が簡単に出来るんだけど。画像表示用プログラムを作成して、UWSCで操作したらいい。サイズがでかいけど。

  2006年06月10日

  コメント(0)

• UWSCのオンラインゲームでの不正使用について

  http://www3.bigcosmic.com/board/s/board.cgi?id=umiumi&mode=all&no=24UWSCマソさんの不正が許せない気持ちはよくわかる。ボクは明らかにそれが目的と判明している場合のみ放置。返信しない。某ゲームで自動操作してたdmasterには何も言う資格は無い^^;言い訳をさせてもらえば、私利私欲の為じゃなかった。自動操作で得た物は、自分のキャラに使った事がない。もし、また再開するとしたら、ログインや単純連続動作の自動化まではUWSCのお世話になると思う。連続動作というのは、指定したアイテムを全て処分する類。アイテムを複数選択できるシステムなら、そんなスクリプトは不要なんだけど。ちなみにPEEKCOLORとCHKIMGは常用してる。他にスマートな方法があるのを知っていても、これを使った方が手っ取り早いから。例えば録音ソフト(LockOnMT)の音量レベルを条件に何かをさせたい場合。ソースが公開されているので改造してしまえば良い訳だけれど、まずボクにはそんな技量が無い。技量があったとしても時間が掛かる。開発環境の構築からコンパイルまでの時間よりも、数行のスクリプトを書く時間の方が圧倒的に短い。この質問の例もある。http://www3.bigcosmic.com/board/s/board.cgi?id=umiumi&mode=all&no=15返信ついでにSAVEIMGしてCHKIMGでウィンドウの変化を調べるスクリプトをフリーページに置いてみたんだけど気付かれなかったかも。

  2006年06月08日

  コメント(0)

• 多重起動防止

  UWSC Ver4.0になってからUWSC自体のクラス名が変更。TFOya　→　TFOya.UnicodeClassなので、これまで使ってたスクリプト多重起動防止部分を変更。・自身と同名のスクリプトが既に実行中であれば、そのスクリプトと自身を終了。st = status(getid(GET_THISUWSC_WIN), st_title)id = getid(st, status(getid(GET_THISUWSC_WIN), st_class))ifb id > 0 then  slctbox(slct_btn, 5, st, "ExitExit")//通知。無くて良い。  ctrlwin(id, close);exitexitendif・既に起動している方を終了を一行で。ctrlwin(getid(status(getid(GET_THISUWSC_WIN), st_title),status(getid(get_thisuwsc_win),st_class)),close)・既に起動していれば自身を終了を一行で。if getid(status(getid(GET_THISUWSC_WIN), st_title),status(getid(get_thisuwsc_win),st_class) > 0 then ExitExit多重起動されると困るスクリプトの先頭にこの部分をに入れるか名前を付けて保存しておき　CALL 多重起動防止.UWS

  2006年05月18日

  コメント(0)

• 自動化スクリプト作成でお仕事

  UWSC Ver4.0キター。で、早速ダウンロードページを開いてみたら「求人」の文字。■株式会社ジェイケン　ＵＷＳＣ事業部（正社員）採用情報http://www.h7.dion.ne.jp/~umiumi/recrut.htmlあー、ここなら就職してみたい。以前「プログラム関連で学歴問わず、初心者歓迎一から教えます」って会社を見かけたんだけど、ここからじゃ遠い上に年齢オーバーしてたんだよなぁ。ま、能力があれば年齢学歴なんて関係なしに就職できるんだろうが。それが無いのが問題なんだよな。うん。致命的。ああ、致命的なのは、引っ越してでも就職しようというやる気が無いって事か。在宅勤務が出来ればなぁ。

  2006年04月21日

  コメント(0)

• 久しぶりにスクリプト書いた

  書くには書いたけど、ここに載せるわけでもなく。Outlook Express でメールチェックする前に、必ずSpam Mail Killerでスパム削除させてるんだけど、その一連の動作をさせるだけのスクリプト。単純すぎてねぇ。。。前から書きたいものがあるけど、なんか意欲がわかないなぁ。ラジオ番組の倍速MP3ファイル作成なんかはさすがに自動化しないと面倒なんで書かないととは思うんだけど。

  2006年03月14日

  コメント(0)

• ウィンドウIDから実行ファイルの情報を得る

  うみうみ屋さんの掲示板の情報をそのまま流用。 id = getid("i") DEF_DLL GetWindowThreadProcessId(Long, var Long):Long: User32 DEF_DLL OpenProcess(Long, Long, Long):Long: kernel32 DEF_DLL EnumProcessModules(Long, var Long, Long, var Long):int: PSAPI DEF_DLL GetModuleFileNameExA(Long, Long, var String, Long):Long: PSAPI PROCESS_ALL_ACCESS = $1F0FFF dim ProcessId, ModuleHandle, ModulesCount Filept = " " for i = 0 to 8; Filept=Filept+Filept; Next // メモリ確保 GetWindowThreadProcessId(IDtoHnd(id), ProcessId) ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, 0, ProcessId) Ifb EnumProcessModules(ProcessHandle, ModuleHandle, 1, ModulesCount) GetModuleFileNameExA(ProcessHandle, ModuleHandle, Filept, Length(Filept)) EndIf msgbox(Filept)ボクの使用用途は多重起動防止など。同じプログラムを複数実行していて、実行ファイル名、パスが異なる場合に、ウィンドウタイトルが同じでも区別できるようになる。ボクはLockON MTを２つ起動して使わせてもらってる。置き場所と実行ファイル名はそれぞれ異なっていて。右の音を録音するLockonR.exe と 左のLockonL.exeと分けてる。LockONには２つとも常駐していてもらわないと困るのだけど、たまーにどちらかが異常終了してしまうことがある。タスクやスクリプトで自動的に再起動させるようにしてるけど、区別がつかないと重複起動してしまう場合がある。それで実行ファイル名を調べて区別してるというわけですハイ。アプリケーション実行中にタイトルが変わらない場合は、実行時にタイトルを変更する方法があるけど、LockONは変わっちゃう。録音中は触れないし。

  2005年12月21日

  コメント(4)

• IEの補助というか、なんというか

  小さいノートPCのキーボードだと、PageUp、PageDown、HomeやEndキーが単独で無くて、左手でFnキー、右手で方向キーを同時押しする必要がある。片手だけで操作したいので、Ctrl+上でPageUpなどできるようにしてみた。中ボタンは上下キーの同時押し。お気に入りの表示、非表示は、IEウィンドウの左端クリック。Ctrl+MでIEウィンドウの最大化と元のサイズに戻す。while true;sleep(0.1)　fw = getid(get_frompoint_win)　fwC = status(fw, st_class)　　select fwC　　case "IEFrame"//マウスの下にあるのがIEなら　　//■IE左隅クリックでお気に入り表示・非表示　　　getkeystate(vk_lbutton)　　　ifb getkeystate(vk_lbutton)//左クリックされてたら　　　　mX = g_mouse_x;fwX = status(fw, st_x) + 4　　　　if mX >= fwX and mx

  2005年10月11日

  コメント(2)

• 連打スクリプト

  ダンジョンマスターをやってて「殴る」などの攻撃コマンドを連打してると指が疲れる。マウスも壊れそうだし。なのでUWSCの連打スクリプトを書いてみた。他にもできるけど反則なので連打のみ。呪文の唱え間違えとかも楽しさの要素。//----RTC連打.uwsスクリプト----/ホイールボタンを押すと/左クリックを連打するスクリプト/連打中ホイールボタンを押すと連打停止//ゲームのタイトル、クラス、パスgTitle = "Return To Chaos"gClass = "NewRTCWndClass"gPath = "C:\game\RTC.exe"//GAME起動確認rtcID = Getid(gTitle,gClass)If rtcID < 0 Then rtcID = Exec(gPath)GETKEYSTATE(VK_MBUTTON)//初期化While True　For i = 1 to 1000;sleep(0.3)　　If Status(getid(get_active_win), st_class) gClass Then Break　　Ifb GETKEYSTATE(VK_MBUTTON) Then　　　X = G_MOUSE_X;Y = G_MOUSE_Y　　　While True;Sleep(0.1)　　　　If GETKEYSTATE(VK_MBUTTON) Then Break　　　　BTN(LEFT, CLICK, X, Y)　　　Wend　　EndIf　Next　If getid(gTitle, gClass, 0.05) < 0 Then BreakWendFukidasi("RTC連打.uws 終了")Sleep(3)

  2005年09月14日

  コメント(0)

• url補完.uws

  h抜きのURLを補完するのが面倒なのでUWSCでやってみた。//----スクリプトここから----//多重起動防止と終了id = getid("url補完.uws","TFOya",0.1)ifb id > 0 then//既に起動していれば閉じて自身も終了　ctrlwin(id, close)　fukidasi("url補完.uws 終了")　SLEEP(2)　ExitExitendif//お知らせFukidasi("url補完.uws")SLEEP(1.5)Fukidasi()while true　sleep(0.3)　id = getid(get_frompoint_win)　if status(id, st_class) "IEFrame" then continue　url = getstr(id, 1)　if copy(url, 1, 3) = "ttp" then sendstr(id, "h" + url, 1, true)wend//-----ここまで------クリップボードを編集する方がいいのかな。

  2005年09月09日

  コメント(2)

• UWSCでモニタの電源を切る

  ちょっとした省エネ。退席するときには必ずモニタの電源を切るようにしてるんだけど、モニタまで手を伸ばすのが面倒だったり、キーボードから電源を切れないPCがある。電源管理で１分で電源を切る設定にしてるけど、その１分間の電気代がもったいない。モニタの電源を切るソフトはあるだろうけど、UWSCというソフトで切ってる。次の一行だけ。　POFF(P_MONIPOWER)これをエディタに貼り付け、適当に名前を付けて保存。モニタOFF.uwsとか。拡張子は必ず.uws。ヘルプの説明でも参考に関連付けを済ませたら、uwsファイルをクリックするだけで実行できる。うわー、大雑把な説明。--------　　今これを書いてるノートPCにはスリープボタンもモニタ切り替えボタンもない。頻繁に開閉するのは少し怖い。ヒンジは丈夫そうだけど。

  2005年09月08日

  コメント(0)

全32件 (32件中 1-32件目)

1