09/12/15 18:19:27
EXCEL.EXEを検索してFileVersionで判定すべき
201:デフォルトの名無しさん
09/12/23 00:00:12
Office2010ってもう発売されてるんだ.....
202:デフォルトの名無しさん
09/12/23 14:44:53
さあ
203:デフォルトの名無しさん
09/12/23 14:50:06
office13は？
204:デフォルトの名無しさん
09/12/24 09:35:19
スレちがい
205:デフォルトの名無しさん
10/01/13 18:31:33
お願いだから教えてください。スレ違いかも知れないけどPower Shellスレないみたいだし・・
Windows Power Shell(2.0)でIEを起動してマウスクリックをエミュレートさせようとした場合、Win32API(mouse_event)を使うと思うんですが
DllImport("usr32.dll",Charset=Charset.Auto)でCharset = ←の=の後がどうとかいって、実行できません。Charsetのくだりを全削除すると今度は予期しない属性と出てしまいます。
mouse_eventにこだわりはないんですが
IEを立ち上げ
マウスクリックをエミュレートする
処理を教えてください。APIなら宣言部もお願い；；
206:デフォルトの名無しさん
10/01/13 18:37:51
205ですけど
座標とかハードコーディングで大丈夫ですので肝を簡潔にお願い；；
207:デフォルトの名無しさん
10/01/13 23:40:26
スレちがい
Windows PowerShell 2.0 Part2
208:デフォルトの名無しさん
10/01/14 00:07:23
普通はDOM使うんじゃなかろうか、いや知らんけど
209:デフォルトの名無しさん
10/01/14 02:56:55 BE:1403990069-PLT(23400)
>>207
URLも貼ってあげなよ
ｽﾚﾘﾝｸ(win板)
210:デフォルトの名無しさん
10/02/22 21:41:34
次のように Folderオブジェクトの SubFolders でFolderコレクションを取得したとして、
Set c = folder.SubFolders
これを For Each ではなくて以下のように For で処理したいです。
For i = 0 To c.Count
:
Next
このループの中で、i 番目のアイテムを取得するにはどうしたらよいでしょうか？
c(i) でも c.Item(i) でもダメでした。
211:デフォルトの名無しさん
10/02/22 21:44:18
c.Items(i)
212:210
10/02/22 21:50:27
それだと
オブジェクトでサポートされていないプロパティまたはメソッドです。:'c.Items'
です。
ちなみに、c.Item("Test") みたいに、実在するフォルダ名を与えればフォルダオブジェクトは取って来れます。
それじゃ意味無いですが。
213:デフォルトの名無しさん
10/02/22 22:06:18
c(i).Value
c(i).Item()
214:210
10/02/22 22:17:28
>>213
プロシージャの呼び出し、または引数が不正です。
215:デフォルトの名無しさん
10/02/22 23:29:43
Shell.Application の FolderItems のほうを使ったら？
216:デフォルトの名無しさん
10/02/25 21:55:47
配列に入れて使え
217:デフォルトの名無しさん
10/02/25 22:13:00
For i = 0 To c.Count
j=0
For Each f In c
If j=i Then Exit For
j=j+1
Next
MsgBox f
Next
218:デフォルトの名無しさん
10/02/25 22:55:24
番号は使えないみたいだな
ItemクリックしたらDictionaryに飛んだ
URLﾘﾝｸ(msdn.microsoft.com)
219:デフォルトの名無しさん
10/03/01 21:36:27
test
220:デフォルトの名無しさん
10/03/05 12:44:09
WMI使ってリモートPCのIP変更したいんだが、変更後にRPCエラー待ちが発生して自動処理が難しい。
エラー待ちを無視するとか、なんかいい方法知ってる人がいたら助けて。
On Error Resume Next
strComputer = "10.1.1.1"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
Next