Q&Aサイト横断検索「IE7??G'&&sLEEp(3)&&'1」で検索した結果

Yahoo!知恵袋 解決済み

読み込み中・・・
uwscについて質問です。 IEを起動して、別のページでIESETDATAを使いたいのですが、うまくいきません。 どのように書き換えたらいいでしょうか? 今書いている制御文です。↓ YahooID = "○○" passwd = "××" IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True window_id = HNDtoID( ie.hwnd ) ACW( window_id, 0, 0 ) CtrlWin( window_id, MAX ) IE.Navigate("△△") BTN(LEFT,CLICK,1,500,300) btn(wheel,5) for i = 1 to 10 IF CHKIMG("img\logout.bmp",,,,,,,IMG_MSK_BGR3)=true then BTN(LEFT,CLICK,G_IMG_x+1,G_IMG_y+1,300) break endif next sleep(2) for i = 1 to 100 sleep(0.1) if CHKIMG("img\login.bmp",,,,,,,IMG_MSK_BGR3)=true then BTN(LEFT,CLICK,G_IMG_x+1,G_IMG_y+1,300) break endif next for i = 1 to 100 sleep(0.1) if CHKIMG("img\login.bmp",,,,,,,IMG_MSK_BGR3)=true then BTN(LEFT,CLICK,G_IMG_x+1,G_IMG_y+1,300) break endif next sleep(2) IESETDATA( IE, +YahooID+num, "login" ) IESETDATA( IE, +passwd, "passwd" ) IESETDATA( IE, 1, "", "ログイン" ) 初心者で変な文かもですがよろしくお願いします。
UWSCでマクロを作っています ↓のマクロの組み方か、GoogleChromeで画面が完全に開くまで待機のやり方を教えてくれませんか? ACW(GETID("ポケヒロ+ - Google Chrome","Chrome_WidgetWin_1"),0,0,350,500,0) WHILE TRUE REPEAT SLEEP(0.05) UNTIL CHKIMG("1.bmp",-1) SLEEP(0.03) BTN(LEFT,CLICK,G_IMG_X+50,G_IMG_Y+10) REPEAT SLEEP(0.05) UNTIL CHKIMG("2.bmp",-1) SLEEP(0.03) BTN(LEFT,CLICK,G_IMG_X+30,G_IMG_Y+10) REPEAT SLEEP(0.05) UNTIL CHKIMG("3.bmp",-1) SLEEP(0.03) BTN(LEFT,CLICK,G_IMG_X+78,G_IMG_Y+82) WEND これをもし"1.bmp"の画像が10秒間見つからなかったら BTN(LEFT,CLICK,23,58,300) のを実行し、 UNTIL CHKIMG("3.bmp",-1) のところまで戻すというマクロに変えたいのですがどうやったらそのようなマクロが作成できますか? 整理すると、 WHILE TRUE ?1.bmpが見つかるまで画像認識→?or? ?認識できたら指定された場所をクリック→? ?10秒間認識ができなかった→? ?BTN(LEFT,CLICK,23,58,300)→? ?2.bmpが見つかるまで画像認識→? ?認識できたら指定された場所をクリック→? ?3.bmpが見つかるまで画像認識→? ?認識できたら指定された場所をクリック WEND というマクロを組みたいです IEならば画面が開くまで待機、IFB CHKIMGと指定のuwsファイルを開く使うことでできるとは思うのですが、 GoogleChromeで画面が完全に開くまで待機のやり方が見つからなかったのでこの方法で代用してみたのですが 知識が足らずに組むことができませんでした。 よろしくお願いします
哀愁 曲 洋楽 邦楽 メロディー メロディが素晴らしい曲を探してます。形式はバンド等こだわりません。お勧めありますでしょうか? UKのバンドTravisのアルバム12 Memoriesが特に好きです。 Oasis、Coldplay、Radiohead、Feeder、Muse、The Shining、Fran Haely、Stereophonics辺りは聴きました。 曲単位だと下記の物が特に好きです。 Neil Young の A Man Needs A Maid、 John Frusciante の Repeating Nirvana の Where Did You Sleep Last Night Lou Reed の Perfect Day Deftones の Teenager Magnet の Where Happiness Lives Deerhunterの BasementScene Yo La Tengo の Tears Are In Your Eyes 邦楽では toe の モスキートンはもう聞こえない #1【インストですが…】 eastern youth の 矯正視力0.6 back horn の ガーデン Syrup16g の センチメンタル キセル の ギンヤンマ downy の鉄の風景 小谷美紗子 の 線路 などが好きです。 曲単位で書いたアーティストのアルバムはもちろん聴いてます。 ジャンルが支離滅裂になってしまいましたがお勧めがありましたら教えてください。よろしくお願いします。
マクロの修正方法がわかりません。 マクロで組んだヤフーファイナンスからの複数銘柄の株価を同時に時系列で一覧(エクセル表)にするものが、使えなくなりました。どこを修正すればよいのでしょう。(第三者が作ったものを流用していたので、私自身マクロについては全くの素人です。) 尚、ヤフーの時系列サイトリニューアルにともない、URLが「http://info.finance.yahoo.co.jp/history/?code=」に変更されているようです。 Sub 時系列用() '----------消去 範囲 = Range("A" & Rows.Count).End(xlUp).Row If 範囲 < 39 Then 範囲 = 39 Rows("39:" & 範囲).ClearContents '----------IE起動 Set myIE = CreateObject("InternetExplorer.Application") myIE.Visible = True '----------何列の銘柄があるか確認 範囲 = Cells(37, Columns.Count).End(xlToLeft).Column For Each コード In Range("B37:" & Cells(37, 範囲).Address) '----------Yahoo用のURL生成 ページ = "http://table.yahoo.co.jp/t?c=" _ & Range("B33") & "&a=" & Range("D33") & "&b=" & Range("F33") & "&f=" _ & Range("B34") & "&d=" & Range("D34") & "&e=" & Range("F34") & "&g=d&s=" _ & コード & ".t&y=0&z=" & コード & ".t" '----------ページ表示 myIE.Navigate ページ Do Until myIE.Busy = False Loop '---------- スイッチ = False 書列 = コード.Column 書行 = 39 '----------1行ずつ確認 For Each myTAG In myIE.document.getElementsByTagName("TR") myTR = myTAG.innerText '----------「* 分割による」の文字が出たら スイッチOFF If InStr(1, myTR, "* 分割による") = 1 Then スイッチ = False '----------明細行がスタートしていたら書き込む If スイッチ Then 列 = 0 For Each myTAG2 In myTAG.getElementsByTagName("TD") 列 = 列 + 1 '----------明細の1列目は日付 If 列 = 1 Then Cells(書行, 1) = myTAG2.innerText End If '----------明細の5列目は終値 If 列 = 5 Then Cells(書行, 書列) = myTAG2.innerText 書行 = 書行 + 1 End If Next End If '----------「日付」の文字が出たら 次から明細行 スイッチON If InStr(1, myTR, "日付") = 1 Then スイッチ = True Next Next myIE.Quit: Set myIE = Nothing MsgBox "完了" End Sub
V系の音楽グループはたくさんあると思いますが、 いったいどのグループがそうなのですか? 具体的に教えて頂きたいです。 ちなみにUVERworldはそうですかね? お願いします^^
悲しい、憤りが感じられる洋楽を教えて下さい! アップテンポのものがいいです!! よろしくお願いいたします。
おすすめバンドありませんか、高校生です 高校生バンドマン御用達のSiM、coldrain好きです。 あとは、BreakingBenjamin、Slipknot、ChildrenOfBodom、Slayer、CROSSFAITH、Neverlost、ArchE nemyとかが好きです。 ここにあるようなヘビーで叫ぶ系の、CDが安いのでできれば洋楽がいいです、YouTubeのリンクとかもよければお願いします。 ワンオク、RAD、BUMP、マンウィズ、セカオワ、サカナクションとかそのへんの邦ロック大好き高校生が聴くようなバンドは全部嫌いです。
洋ロックについて。 洋楽を聞きたいのですがオススメをおしえてください。 日本の英語で歌ってるバンドだと ONE OK ROCK MY FIRST STORY MAN WITH A MISSION SiM BLUE ENCOUNTらへんが好きです Sum41は数曲って感じです よろしくお願いします!!
VBAのAPIを使って、Window上の指定座標のRGB値取得についての質問です。 環境;Windows7 Excel2010 VBA 下記コードにて、ヤフーHPのPixel(900,300)のRGB値を取得するテストをしていま すが、結果として(255,0,0)が取得されてしまいます。 ColorPickerで(900,300)のRGBを調べると(1,172,252)なのですが、Pixelをどの点 に指定しても(255,0,0)となってしまいます。 よろしくお願いします。 Sub Test1() 'IE起動 Set objIE1 = CreateObject("InternetExplorer.Application") objIE1.Visible = True objIE1.navigate "http://www.yahoo.co.jp/" 'Yahooに移動 Do While objIE1.Busy = True Or objIE1.readyState <> 4 DoEvents 'IEを待機 Loop Set objShell = CreateObject("Shell.Application") wkhwnd = GetForegroundWindow 'Hwnd取得 Maxit = ShowWindow(wkhwnd, 3) '最大化 objIE1.Visible = True CursorRet = SetCursorPos(900, 300) '色の取得座標指定 GetCursorPos p '座標取得 SetCapture wkhwnd 'CP開始 ScreenhDC = GetDC(wkhwnd) 'DC取得 If ScreenhDC = 0 Then MsgBox "DC取得失敗!" End If 'MsgBox "Screen座標=" & "(" & p.x & "," & p.y & ")" pc = GetPixel(ScreenhDC, p.x, p.y) '色取得 r = CByte(pc And &HFF) '3byteTh g = CByte((pc \\ 256&) And &HFF) '2byteTh b = CByte((pc \\ 65536) And &HFF) '1byteTh Worksheets("Sheet1").Range("A1").Interior.Color = RGB(r, g, b) Worksheets("Sheet1").Range("B1") = r & "," & g & "," & b ReleaseDC wkhwnd, ScreenhDC 'DC解放 ReleaseCapture objIE1.Quit 'Windows閉じる End Sub
久しぶりにMステ観たんですけど、ランキングみてもあんまり良い音楽なくないですか? AKB系は学園祭の出し物レベルだしあとは韓国あたりで、 なんかもっと才能ある人いないんですかね? オススメのアーティストいたら教えてください。お願いします。

->Yahoo!知恵袋 解決済みに移動

教えて!Goo

読み込み中・・・
検索結果:0件

->教えて!Gooに移動

はてな

読み込み中・・・
検索結果:0件

->はてなに移動


▲ページ先頭へ(再検索する)