HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2011
0214
win5126 (投稿者削除)12解決


win5126

リンク

2011/2/14(Mon) 19:53:34|NO.37116

この記事は投稿者により削除されました。
2011/2/15(Tue) 20:49:48



この記事に返信する


inovia

リンク

2011/2/14(Mon) 20:41:34|NO.37117


#module WMImodule #uselib "ole32.dll" #func CoSetProxyBlanket "CoSetProxyBlanket" comobj,int,int,int,int,int,int,int #define IID_IWbemLocator "{dc12a687-737f-11cf-884d-00aa004b2e24}" #define CLSID_WbemLocator "{4590f811-1d3a-11d0-891f-00aa004b2e24}" #usecom IWbemLocator IID_IWbemLocator CLSID_WbemLocator #comfunc WbemLoc_ConnectServer 3 wstr,int,int,int,int,int,int,var #define IID_IWbemServices "{9556dc99-828c-11cf-a37e-00aa003240c7}" #define CLSID_WbemServices "{D68AF00A-29cb-43fa-8504-ce99a996d9ea}" #usecom IWbemServices IID_IWbemServices CLSID_WbemServices #comfunc WbemSvc_ExecQuery 20 wstr,wstr,int,int,var #define IID_IEnumWbemClassObject "{027947e1-d731-11ce-a357-000000000001}" #define CLSID_EnumWbemClassObject "{1b1cad8c-2dab-11d2-b604-00104b703efd}" #usecom IEnumWbemClassObject IID_IEnumWbemClassObject CLSID_EnumWbemClassObject #comfunc EnumWbem_Reset 3 #comfunc EnumWbem_Next 4 int,int,var,var #define IID_IWbemClassObject "{dc12a681-737f-11cf-884d-00aa004b2e24}" #define CLSID_WbemClassObject "{9A653086-174F-11d2-B5F9-00104B703EFD}" #usecom IWbemClassObject IID_IWbemClassObject IID_IWbemClassObject #comfunc WbemClsObj_Get 4 wstr,int,var,int,int #deffunc GetWMIData array data,str query,str type newcom pLoc, IWbemLocator if( stat == 0 ){ WbemLoc_ConnectServer pLoc, "root\\cimv2", 0, 0, 0, 0, 0, 0, ppSvc if( stat == 0 ){ newcom pSvc, IWbemServices, -1, ppSvc if( stat == 0 ){ CoSetProxyBlanket pSvc,10,0,0,3,3,0,0 if( stat == 0 ){ WbemSvc_ExecQuery pSvc, "WQL", query, 48, 0, ppEnum if( stat == 0 ){ newcom pEnum, IEnumWbemClassObject, -1, ppEnum if( stat == 0 ){ dimtype vRet, vartype("variant") repeat EnumWbem_Next pEnum, -1, 1, ppclsObj, uReturn if( uReturn == 0 ) : c = cnt : break newcom pclsObj, IWbemClassObject, -1, ppclsObj if( stat == 0 ){ WbemClsObj_Get pclsObj, type, 0, vRet, 0, 0 data(cnt) = vRet("value") delcom pclsObj } loop delcom pEnum } } } delcom pSvc } } delcom pLoc } return c #global sdim nMouse, 64 : sdim nKeyboad, 64 GetWMIData nMouse, "Select * from Win32_PointingDevice", "Name" mes ""+stat+" つのマウス/ポインティングデバイスが見つかりました。" GetWMIData nKeyboad, "Select * from Win32_Keyboard", "Name" mes ""+stat+" つのキーボードデバイスが見つかりました。"

以下のサイトを参考にしました。
モジュール内を一部書き換えて使っています。
stat に 取得した数が入るようにしています。
length()だとデバイスがなくても1が返ってきてしまうためです。

http://blog.goo.ne.jp/hiro239415/e/b0fb4ec697b8dbb34645f9600f4fac9a



win5126

リンク

2011/2/14(Mon) 20:59:15|NO.37118

うは、むずいなぁ
プラグインがあるとてっきり思っていたら、長い・・・
でも情報提供ありがとうございました
僕の知識では、できません(> <)
すいません・・・簡単かと思って・・・
長文すいませんでした



najac

リンク

2011/2/15(Tue) 00:05:59|NO.37123

あなたは知識がなくても人を利用する力だけはあります。



win5126

リンク

2011/2/15(Tue) 07:17:48|NO.37126

どゆこと、人を利用するのが、得意ってこと?
それとも、知識がないけど利用するのは得意とバカにしてる?



f3d()

リンク

2011/2/15(Tue) 09:47:06|NO.37127

人を利用するってのは、
スクリプトが理解できなくても、人が書いてくれたスクリプトをそのままつかえるんじゃねぇのか?
ってことでねぇの?



ひよこ

リンク

2011/2/15(Tue) 17:50:44|NO.37132

まあまあ。

すごく低レベルなのを理解する気もなくコピーして使うより、
理解し辛いくらい高度な内容をするほうがましじゃないですか。

紹介ページにもあまり説明ないですし。
自分で調べるのにも限度があります。



ESZET@雪崩の中の松茸

リンク

2011/2/15(Tue) 18:35:24|NO.37134

>知識がないけど利用するのは得意とバカにしてる?
意味考えれ



リンク

2011/2/15(Tue) 18:52:36|NO.37137

質問者さんからすれば全く心外な言いがかりだと思われるので、
分からなくても問題無いでしょうし反応する必要も無いと思います。



win5126

リンク

2011/2/15(Tue) 20:49:24|NO.37139

炎上みたいな感じになったから削除



てれてれ

リンク

2011/2/15(Tue) 21:19:21|NO.37140

炎上の一言で済まそうとしていることが1番問題。



Jack

リンク

2011/2/17(Thu) 20:17:14|NO.37154

お前等、中学生なの?

それともPCのやりすぎて切れやすくなった?



Jackたんhe

リンク

2011/2/18(Fri) 16:09:12|NO.37170

お前、小学生なの?

それともPCのやりすぎて切れやすくなった?



ONION software Copyright 1997-2023(c) All rights reserved.