前の5件 | -
Excelでsendkeys
作業自動化の最終手段。自分用メモ。
ChromeでURL開くまで。
'なんか動かん場合VB窓からツール→参照設定がいるかもしれん
'コマンドプロンプト用で設定した記憶だからPowerShellでも必要かどうかわからん
これな:Windows Script Host Object Model
'ワイの環境64bitになったんやで
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub sendkeyrun()
Dim cpath As String
Dim uri As String
cpath = "$path = " & """C:\Program Files\Google\Chrome\Application\chrome.exe"""
uri = "$url = " & """https://対象アドレス"""
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Shell")
result = objWSH.Run(Command:="powershell", Windowstyle:=1)
Sleep 4000
SendKeys "Add-Type -AssemblyName System.Windows.Forms"
SendKeys "{ENTER}"
SendKeys cpath
SendKeys "{ENTER}"
SendKeys uri
SendKeys "{ENTER}"
SendKeys "start $path $url"
SendKeys "{ENTER}"
Sleep 8000
'あとは開いたURLの先でやることを羅列
'alt+tabでPowerShell窓選択してExitしておくときれいかもしれないが
'会社で「自動化自動化」うるさく言われると行儀良くやる気も失せるのですわ
Set objWSH = Nothing
End Sub '
ChromeでURL開くまで。
'なんか動かん場合VB窓からツール→参照設定がいるかもしれん
'コマンドプロンプト用で設定した記憶だからPowerShellでも必要かどうかわからん
これな:Windows Script Host Object Model
'ワイの環境64bitになったんやで
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub sendkeyrun()
Dim cpath As String
Dim uri As String
cpath = "$path = " & """C:\Program Files\Google\Chrome\Application\chrome.exe"""
uri = "$url = " & """https://対象アドレス"""
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Shell")
result = objWSH.Run(Command:="powershell", Windowstyle:=1)
Sleep 4000
SendKeys "Add-Type -AssemblyName System.Windows.Forms"
SendKeys "{ENTER}"
SendKeys cpath
SendKeys "{ENTER}"
SendKeys uri
SendKeys "{ENTER}"
SendKeys "start $path $url"
SendKeys "{ENTER}"
Sleep 8000
'あとは開いたURLの先でやることを羅列
'alt+tabでPowerShell窓選択してExitしておくときれいかもしれないが
'会社で「自動化自動化」うるさく言われると行儀良くやる気も失せるのですわ
Set objWSH = Nothing
End Sub '
2023-12-04 09:25
ヤフオク出品用の新基板を設計中
青空駐車のはよ
な声が聞こえてきそうですが、現在ヤフオク出品しているやつが
そろそろ基板使い切りそうなので製作ついでに刷新をしたいんです。
リード部品を使った製作キットとの併用を考えない、面実装メインで。
.
な声が聞こえてきそうですが、現在ヤフオク出品しているやつが
そろそろ基板使い切りそうなので製作ついでに刷新をしたいんです。
リード部品を使った製作キットとの併用を考えない、面実装メインで。
.
2023-02-06 23:55
青空駐車での補充電にお悩みの方は多い模様
車事情として車庫&電源がある環境で
「ボンネット開けたまま充電しつつ放置」
なんて出来るのは限られた一部の特権であり
自分含め、青空駐車か車庫あっても電源無い環境が多い模様。
そうなると何らかの形で補充電できたらいいな。
太陽電池のパネルは、それはそれとして
明確に補充電したい!という要望はそこそこ来ます。
バッテリtoバッテリのリリースはよ
との声に応えられないのもあって、更新。
.
「ボンネット開けたまま充電しつつ放置」
なんて出来るのは限られた一部の特権であり
自分含め、青空駐車か車庫あっても電源無い環境が多い模様。
そうなると何らかの形で補充電できたらいいな。
太陽電池のパネルは、それはそれとして
明確に補充電したい!という要望はそこそこ来ます。
バッテリtoバッテリのリリースはよ
との声に応えられないのもあって、更新。
.
2023-02-01 23:45
Visual Studio Express 2017(今更)
会社業務で手間減らすため、久しぶりにVisual Basicでもやるかなー
なんて思ったVB6おじさんが2022年9月27日に遭遇したトラブルについて。
---結論---
https://aka.ms/vs/15/release/vs_WDExpress.exe
このリンクでVisual Studio Express 2017のインストーラ入手できました
-----------
---ここから記録---
Microsoft社の開発環境であるVisual Studio
これに無償版があったよな?(記憶が2012年頃で停滞)
と思って調べてみたら、最近ではExpressではなくCommunityという検索結果が。
で、
なんて思ったVB6おじさんが2022年9月27日に遭遇したトラブルについて。
---結論---
https://aka.ms/vs/15/release/vs_WDExpress.exe
このリンクでVisual Studio Express 2017のインストーラ入手できました
-----------
---ここから記録---
Microsoft社の開発環境であるVisual Studio
これに無償版があったよな?(記憶が2012年頃で停滞)
と思って調べてみたら、最近ではExpressではなくCommunityという検索結果が。
で、
2022-09-28 10:33
前の5件 | -
なんだかんだで安いPCを買いたいならデルさんで。
ドスパラは広告拒否しよったんで、二度と使いません。
スティックpcとか魅力的だけど、ドスパラじゃ絶対買ってやらない。