piyopiyo@ぴよのしゅけ

トップページ

2012-05-12T19:11:52+09:00

#topicpath #contents #memo() とりあえずやってみよう人ようのレンタルサーバーお勧めです。 #html2() { } #javascript(){{ }} #html2() { もっとハワイの旅行が楽しくなる！オプショナルツアーならハワイ旅行ナビ } #html2() { 漫画全巻セット一括購入 } #html2() { } **リンクや編集先 [[PIYO＠ぴよのしゅけHTML版>http://www.wa.commufa.jp/piyopiyo/]] #comment #javascript(){{ }} #html2() { } #html2() { } やることメモ [[ポイント早見表]]

プレゼント系

2012-03-25T22:18:26+09:00

*母の日けどうちは富士フィルムのアスタリストにしただいぶいいみたい #html2() { } #html2() { } #html2() { } 覚書母、バッグ、靴、花、美容液、マッサージチェアー嫁、アスタリスト、パジャマ、服

日記

2011-11-07T08:18:59+09:00

#topicpath - デブがデブをデブという -- ぴよ (2010-09-15 08:27:19) - swfobjがVBAで触れない。。。。 -- ぴよ (2010-10-08 22:16:21) #comment memo --- 1:5 2:2 3:7 4:? 5:6 6:3,4 7,3,2 9,5,4 a,1,1 q,4,5 b,?,? c,?,4 d,?,9 --- Private Sub bGET_TAN_Click() '情報メニューを起動する(クリックする) Dim n As Integer 'ループのカウンター Dim nLinkNo As Integer '見つけたメニューの番号 nLinkNo = -1 'エラーの-1で初期化する For n = 0 To Me.WebBrowser2.Document.Links.Length - 1 'リンクオブジェクトから探る 'タイトルが情報メニューのリンクを探す If Me.WebBrowser2.Document.Links(n).Title = "情報メニュー" Then nLinkNo = n '見つけた番号をセットする。 Exit For '見つけたのでループを抜ける。 End If Next n 'エラーの判断 If nLinkNo = -1 Then '-1のまま、見つからなかったら、エラーにする。 MsgBox "情報メニューが見つかりません、システム管理者に連絡してください" Exit Sub '関数を抜ける End If '見つけたリンクを押す .Click Me.WebBrowser2.Document.Links(nLinkNo).Click '単純に.Clickメソッドを使う '↑次は、ここで起動した情報メニューを捕まえないとなぁ。。。 --- Dim objOYA_TAG As Object '親のオブジェクトを入れる Set objOYA_TAG = tagSELECT.Item("g").parentElement While objOYA_TAG.tagname <> "FORM" 'タグの名前がFORMになるまで(FORM以外の間まわる) Set objOYA_TAG = objOYA_TAG.parentElement 'さらに、一つ上の親タグを代入 Wend objOYA_TAG.Submit '上へ行き、見つけたフォームを.Submit 送信処理 --- http://www.ken3.org/cgi-bin/group/vba_ie.asp --- 'フォーム(0番目)を .Submit(送信・投稿) する objIE.Document.Forms(0).Submit '送信処理 --- Option Explicit Dim wait_time As Integer Dim newpage As Integer Dim banne_html As String Sub test2() Dim objie Dim objshell Set objshell = CreateObject("Shell.Application") Set objie = CreateObject("InternetExplorer.Application") objie.Visible = True 'IEウィンドウを表示 objie.Navigate2 "http://profile.ameba.jp/katharine1209/" '一度アメログのMypage-Topに入る 'objie.Quit 'ここで閉じるのはCreateObjectで作成したウィンドウ 'Set objie = Nothing 'Set objie = objshell.Windows.Item(objshell.Windows.Count - 1) wait_time = 10 wait objie.Navigate2 "http://peta.ameba.jp/p/addPeta.do?targetAmebaId=katharine1209" 'Firstペタランクへ移動 MsgBox "test", vbOKOnly End Sub Sub test1() Dim objie Dim objshell 'Shell.Applicationオブジェクトの作成 Set objshell = CreateObject("Shell.Application") Set objie = CreateObject("InternetExplorer.Application") objie.Visible = True 'IEウィンドウを表示 objie.Navigate2 "http://www.ameba.jp/" '一度アメログのMypage-Topに入る objie.Quit 'ここで閉じるのはCreateObjectで作成したウィンドウ Set objie = Nothing Set objie = objshell.Windows.Item(objshell.Windows.Count - 1) wait_time = 10 wait objie.Navigate2 "http://profile.ameba.jp/katharine1209/" 'Firstペタランクへ移動 wait_time = 10 wait objie.Navigate2 "http://peta.ameba.jp/p/addPeta.do?targetAmebaId=katharine1209" wait_time = 10 wait objie.Navigate2 "http://peta.ameba.jp/p/addPetaComplete.do?targetAmebaId=katharine1209" 'memo ' End Sub Sub peta_peta() 'IE_Obj UF1.PB1.Value = 0 If (Range("D5").Value < 1 Or Range("D5").Value > 50) Then MsgBox "D5に1～50の数字を入れてください", vbOKOnly Exit Sub End If If (Range("D6").Value < 1 Or Range("D6").Value > 50) Then MsgBox "D6に1～50の数字を入れてください", vbOKOnly Exit Sub End If If (Range("D5").Value > Range("D6").Value) Then MsgBox "D5セルはD6より小さい値(1-50)を入れてください", vbOKOnly Exit Sub End If UF1.LB2.Caption = "0/" & Range("D6").Value UF1.TB1.Text = UF1.TB1.Text & "IE起動" & (Chr(13) + Chr(10)) Dim objie Dim objshell 'Shell.Applicationオブジェクトの作成 Set objshell = CreateObject("Shell.Application") 'IEオブジェクトの作成(ダミー) Set objie = CreateObject("InternetExplorer.Application") objie.Visible = True 'IEウィンドウを表示 objie.Navigate2 "http://www.ameba.jp/" '一度アメログのMypage-Topに入る objie.Quit 'ここで閉じるのはCreateObjectで作成したウィンドウ Set objie = Nothing 'いったんオブジェクトをクリア 'Shell.ApplicationオブジェクトのWindowオブジェクトからIEオブジェクトを取り出す '作成されているポイントは、Windowsコレクションの最後の要素 Set objie = objshell.Windows.Item(objshell.Windows.Count - 1) wait_time = 20 wait '---- login script ---- 'objIE.Document.srvLoginForm.amebaId.Value = "xxx" 'objIE.Document.srvLoginForm.Password.Value = "xxx" 'objIE.Document.styLoginForm.Submit.Click 'Time Out Dim time60 As Date time60 = DateAdd("S", 60, Now()) Do While objie.Busy = True 'ビジー中待ち DoEvents If time60 < Now() Then '修正必要 ' MsgBox "タイムアウト", vbOKOnly ' Exit Sub End If Loop UF1.TB1.Text = UF1.TB1.Text & "Firstペタページへ" & (Chr(13) + Chr(10)) objie.Navigate2 "http://peta.ameba.jp/p/showPeta.do" 'Firstペタランクへ移動 wait_time = 20 wait 'next-page For newpage = Range("D5").Value To Range("D6").Value Step 1 If (newpage > 1) Then UF1.TB1.Text = UF1.TB1.Text & newpage & "ペタページへ" & (Chr(13) + Chr(10)) objie.Navigate2 "http://peta.ameba.jp/p/showPeta.do?pageNo=" & newpage & "&allCount=1000" End If '--- 20秒待ち wait_time = 20 wait UF1.LB2.Caption = newpage & "/" & (Range("D6").Value - Range("D5").Value - 1) UF1.PB1.Value = newpage / (Range("D6").Value - Range("D5").Value + 1) * 100 'HTMLソース取得 UF1.TB1.Text = UF1.TB1.Text & "ソース取得" & (Chr(13) + Chr(10)) Dim strHTML As String On Error GoTo error_skip Range("D" & (newpage - 1) * 20 + 10).Select Dim i As Integer Dim z As Integer Dim sLink As String Dim sALL As String Dim b As Integer Dim c As String Dim Mystr As String z = 1 For i = 0 To objie.Document.all.Length - 1 'deb MsgBox objIE.Document.Links(i).outerText 'deb MsgBox objIE.Document.Links(i).href 'deb MsgBox objIE.Document.Links(i).outerHTML ' sLink = objIE.Document.Links(i).outerHTML sALL = objie.Document.all(i).innerHTML ' Range("L10").Value = objIE.Document.All(i).InnerHTML ' If (InStr(1, sLink, "ブログを見る", 1) > 0) Then If (InStr(1, sALL, "時", 1) = 3) Then If (InStr(1, sALL, "分", 1) = 6) Then Range("D" & (newpage - 1) * 20 + 10).Cells(z, 2).Value = objie.Document.all(i).innerHTML Range("D" & (newpage - 1) * 20 + 10).Cells(z, 0).Value = objie.Document.all(i - 4).innerHTML sLink = objie.Document.all(i - 5).innerHTML b = InStr(1, sLink, "ameba.jp/", 1) c = Mid(sLink, b) b = InStr(1, c, "/", 1) Mystr = Mid(c, b + 1) b = InStr(1, Mystr, "/") c = Mid(Mystr, 1, b - 1) Range("D" & (newpage - 1) * 20 + 10).Cells(z, 1).Value = c Range("D" & (newpage - 1) * 20 + 10).Cells(z, 3).Value = "http://peta.ameba.jp/p/addPetaComplete.do?targetAmebaId=" & c & "&petaID=" & Range("D3").Value End If z = z + 1 End If Next i Next newpage UF1.LB2.Caption = "100%" UF1.PB1.Value = 100 UF1.TB1.Text = UF1.TB1.Text & "終了処理" & (Chr(13) + Chr(10)) '--------------終了処理------------------------------ objie.Quit Set objie = Nothing Set objshell = Nothing If (UF1.OB3.Value = False) Then MsgBox "目的通り終了＾＾", vbOKOnly End If Exit Sub error_skip2: Set objie = Nothing Set objshell = Nothing Exit Sub error_skip: MsgBox "Errorです。" & (newpage - 1) * 20 & "まで取得できました", vbOKOnly GoTo error_skip2 objie.Quit End Sub Sub peta_click() If (Range("D7").Value < 1) Then MsgBox "D7セルに1～1000の数字を記載してください" End If If (Range("D8").Value > 1000) Then MsgBox "D8セルに1～1000の数字を記載してください" End If If (Range("D8").Value < Range("D7").Value) Then MsgBox "D7セルをD8より小さくしてください" End If UF1.PB1.Value = 0 Dim objie Dim objshell Dim i As Integer 'Loop変数 On Error GoTo error_peta UF1.TB1.Text = UF1.TB1.Text & "IE起動" & (Chr(13) + Chr(10)) 'Shell.Applicationオブジェクトの作成 Set objshell = CreateObject("Shell.Application") 'IEオブジェクトの作成(ダミー) Set objie = CreateObject("InternetExplorer.Application") objie.Visible = True 'IEウィンドウを表示 objie.Navigate2 "http://www.ameba.jp/" '一度アメログのMypage-Topに入る objie.Quit 'ここで閉じるのはCreateObjectで作成したウィンドウ Set objie = Nothing 'いったんオブジェクトをクリア Range("A10:A1009").Value = "" Set objie = objshell.Windows.Item(objshell.Windows.Count - 1) Dim jch As String Dim ipb As Integer jch = "sato613" Range("F10").Select UF1.TB1.Text = UF1.TB1.Text & "ペタ実行開始" & (Chr(13) + Chr(10)) For i = Range("D7").Value To Range("D8").Value Step 1 UF1.LB2.Caption = ipb & "/" & (Range("D8").Value - Range("D7").Value + 1) UF1.PB1.Value = ipb / (Range("D8").Value - Range("D7").Value + 1) * 100 ipb = ipb + 1 If (InStr(1, jch, Range("F10").Cells(i, -1), 1) > 0) Then Range("F10").Cells(i, -4).Value = "重複" Else objie.Navigate2 Range("F10").Cells(i, 1).Value jch = jch & Range("F10").Cells(i, -1).Value & "," wait_time = 10 wait Range("F10").Cells(i, -4).Value = "OK" End If Next i '------------- end message ----------------------- UF1.TB1.Text = UF1.TB1.Text & "ペタ終了" MsgBox "目的通り終了" objie.Quit Set objie = Nothing Set objshell = Nothing Exit Sub error_peta: Range("F10").Cells(i, -4).Value = "NG" UF1.TB1.Text = "ペタERROR" MsgBox "ERROR" & i & "までペタできました" objie.Quit Set objie = Nothing Set objshell = Nothing End Sub Sub wait() 'wait_time = 10 Dim newHour As Integer Dim newMinute As Integer Dim newSecond As Integer Dim waitTime As Integer Dim swait As String newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + wait_time swait = newHour & ":" & newMinute & ":" & newSecond Application.wait swait End Sub Sub get_html() 'ムームードメイン 'banner_html = "" ' ' 'ロリポップ ' ' ' ' ' ' 'チカッパ ' ' ' 'ヘムテル ' ' ' 'ライブドア ' ' ' 'A8 'http://px.a8.net/svt/ejp?a8mat=1HU5F7+9DKSS2+0K+ZSD6A 'Get Monney 'http://dietnavi.com/pc/index.asp?id=1856115 'ドル箱 'http://dorubako.jp/regist.php?i=10435070 'Potora 'http://px.a8.net/svt/ejp?a8mat=1HU5F7+DJM182+1R5C+6EU6Q 'げんだま ' ' ' ' ' ' ' ' ' ' ' ' End Sub End Sub

test

2011-10-15T23:43:53+09:00

合計：&counter() 今日：&counter(today) 昨日：&counter(yesterday) -- *PCで携帯用のmobaのサブ垢作り -- *１・Safariインストールまずは下記のURLから、フリーブラウザのSafariをDLしてインストールする。 http://www.apple.com/jp/safari/download/ 2011/09/15 最新5.1です。} *２・インストールが出来たら、右端にある歯車みたいなマークから設定⇒詳細を開いて、「メニューバーに開発メニューを表示する」にチェックを入れる。この時同じく歯車のマークから、メニューバーを表示に切り替えておく事。 #image(settei.jpg) #image(settei2.jpg) *３・UAの設定メニュー開発からユーザーエージェントを選択してOS4.3.3のiPHONEを選択して終わりです。これでスマフォのiPHONEになりすませます。 #image(ua.jpg) *４・モバにアクセスモバスマホ版登録URL https://ssl.sp.mbga.jp/_reg URLをSafariに貼りつける *５・PCのメールを入れて登録 ※すぐにこないことがあるのでしつこくバックで戻ってしつこく送る ※しつこすぎると有効期限切れと言われるのでもう一回登録する *６・PCにメールが来るのでそのアドレスをコピーしてSafariへ貼りつけ *７・登録する。名前とか（メールアドレスとパスワードは覚えておきましょう） *８・後は携帯の自分を探してモバ友登録してやって欲しいゲームをやってもらうとか怪盗は電話番号要求されるのでやめた方がいいかな？携帯番号いれてPIN入れるだけなので問題ないとは思いますが、、、他は未確認ですが、ロワイヤル系は電話いるかも。カード系はとりあえずいらないと思う。 *続いて2個目作ってみましょう。(2011/9/17更新) *メニュー開発→Webインスペクタを表示 #image(2kome1.jpg) *リソース押してCookieの下のsp.mbga.jpを選択 *そして右側のSP_LOGINとかを選択してすべてDELする（実際は上２つだけでOK) #image(2kome2.jpg) *上のだと消しきれないのがあったので右上の歯車から設定⇒プライバシー⇒すべてのＷｅｂサイトデータを削除 *の方が確実でした。(2011/10/07) *するとモバゲのTOPへ行くとまた会員登録に行けます。 *すべての垢に入りたい時はメールとパスワードを打ち込んで入ってください。 GREEも同じらしいです。-->GREEはドメイン指定されたのでできなくなりました。(10/14確認）ちなみにアメーバも駄目でした。(10/14確認） #html2() { もっとハワイの旅行が楽しくなる！オプショナルツアーならハワイ旅行ナビ }

右メニュー

2011-10-09T16:10:49+09:00

#popular(today,10) &link_editmenu2(text=ここを編集) #html2() { } #javascript(){{ }} #javascript(){{ }}

mail

2011-09-17T23:10:30+09:00

#contents *ﾌﾘｰのﾒｰﾙを作ってみよう編 ※正直に登録してもいいし捏造や妄想で登録してもきっと問題なしです。 **msnﾒｰﾙ編 ***msnへいく http://jp.msn.com/ ***右側の方のHOTMAILを押す #image(mail1.jpg) ***サインアップに入る #image(mail2.jpg) ***登録して終わり **msnを起点にしてgooを作る編 **gooへいく http://mail.goo.ne.jp/index.html ***無料で登録に入る #image(mail3.jpg) ***その他自分の本使用のメールを登録するとそこにいっぱい来てしまうので msnで登録したメールに届くように登録すると本使用のメールにごみがこなくなるのでベストです。

メニュー

2011-09-17T22:55:06+09:00

**メニュー -[[トップページ]] 今日：&counter(today) 昨日：&counter(yesterday) 総数：&counter(total) **リンク -[[ぴよのしゅけhtml>>http://www.wa.commufa.jp/piyopiyo/]] -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] ---- **[[ネットで稼ぐ]] -[[成果]] #region([[ポイントで稼ぐ]]) -[[ポイントで稼ぐ]] -[[1日の流れ]] --[[ポイントサイト]] --[[ポイント早見表]] ---[[Get_Money]] ---[[ドル箱]] ---[[CMサイト]] ---[[ポイントランド]] ---[[ポイントタウン]] ---[[Potora]] ---[[pointin]] ---[[げん玉]] ---[[わらしべ長者]] ---[[TAKARA]] ---[[ポケットモンキー]] ---[[テポーレ]] ---[[コインゲーム.com]] ---[[ポケマNET]] ---マクロミル ---懸賞道 #endregion #region([[メール受信で稼ぐ]]) -[[メール受信で稼ぐ]] --[[メール受信サイト]] --[[サイト詳細(メール)]] ---[[ドリームメール]] ---[[フルーツメール]] #endregion #region([[アフィリエイトで稼ぐ]]) -[[アフィリエイトで稼ぐ]] --[[アフィリエイトサイト]] ---[[A8.net]] ---[[アクセストレード]] ---[[アフィリエイトB]] ---[[トラフィックゲート]] ---[[Amazon]] ---[[楽天]] ---[[FIND-A]] ---[[グーグルアドセンス]] ---[[バリューコマース]] #endregion #region([[懸賞でかせぐ]]) --[[懸賞でかせぐ]] ---[[コカコーラ]] ---[[ネスカフェ]] #endregion #region([[SEO]]) -[[SEO]] --[[SEOサイト]] --サイト詳細 ---[[XX]] #endregion #region([[ネット銀行]]) -[[ネット銀行]] --[[ネット銀行サイト]] --サイト詳細 ---[[イーバンク]] ---[[ジャパンネット銀行]] #endregion ---- [[その他情報]] ---- **[[サーバー]] ---- **[[プロバイダ]] ---- **[[DVD]] ---- **[[ゲーム]] --[[ゲーム/ONLINE]] --[[ゲーム/Wii]] --[[ゲーム/DS]] --[[ゲーム/雑貨]] ---- **[[家庭菜園]] ---- **[[日記]]---- [[書き方メモ]] [[test]] [[mail]] **更新履歴 #recent(20) -[[プラグイン紹介>プラグイン]] -[[まとめサイト作成支援ツール]] -[[メニュー]] -[[メニュー2]] **他のサービス -[[無料ホームページ作成>>http://atpages.jp]] -[[無料ブログ作成>>http://atword.jp]] -[[2ch型掲示板レンタル>>http://atchs.jp]] -[[無料掲示板レンタル>>http://atbbs.jp]] -[[お絵かきレンタル>>http://atpaint.jp/]] -[[無料ソーシャルプロフ>>http://sns.atfb.jp/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります //**更新履歴 //#recent(20) &link_editmenu(text=ここを編集)

成果

2010-09-15T08:23:54+09:00

*成果約1ヶ月の結果更新、約2000円。1日20分ぐらいでこんなくらいです。&br; A8はよくわからないけどセルフ以外のポイントがついているのでサポートがあったみたい&br; その他は自力で1日10pとかメールだけ、ゲーム起動などでつけたポイント&br; ※トータル報酬 |BGCOLOR(#ffeeff):SIZE(10):CENTER:15):||BGCOLOR(#ffaaff):SIZE(10):CENTER:15):|BGCOLOR(#aaaaff):SIZE(10):CENTER:15):BGCOLOR(#eeffff):SIZE(10):CENTER:15):|BGCOLOR(#ffffee):SIZE(10):CENTER:15):|BGCOLOR(#33ffff):SIZE(10):CENTER:15):|BGCOLOR(#ffdddd):SIZE(10):CENTER:15):|BGCOLOR(#ffeedd):SIZE(10):CENTER:15):|BGCOLOR(#eeddff):SIZE(10):CENTER:15):|BGCOLOR(#eeeeff):SIZE(10):CENTER:15):|BGCOLOR(#ffaaff):SIZE(10):CENTER:15):|BGCOLOR(#aaaaff):SIZE(10):CENTER:15):|BGCOLOR(#ffffff):SIZE(10):CENTER:15):|c |-|[[A8.net]]|Amazon|楽天|[[Get_Money]]|[[ドル箱]]|[[CMサイト]]|[[ポイントランド]]|[[ポイントタウン]]|[[Potora]]|[[pointin]]|[[げん玉]]|[[ポケマ]]| |2010/09/15|1288円|0|0|2348p(234円)|256p(256円)|不明|不明|xx|不明|xx|不明|xx| |2010/07/7|1248円|0|0|不明|不明|不明|不明|xx|不明|xx|不明|xx| |2009/07/3|1846円|0|0|1984p(198円)|208p(208円)&br;コイン54枚|208p|4145(414円)|xx|842p(?)|xx|3132p(313円)|xx| |2009/05/31|947円&br;未確定720円|0|0|1054p(105円)|171p(171円)&br;コイン50枚|136p|3050p(305円)|1796p(?)|339p|6311p(63円)|1430p(143円)|1418p(141円)| |開始日|2009/04/29|2009/05/20|2009/05/15|2009/04/22/|2009/04/22|2009/04/29|2009/04/23|2009/04/23|2009/04/23|2009/05/10|2009/05/16|2009/05/21| 2009年6月はさぼりすぎた 2010年7月気づいたらA8から1248円振り込まれていた.年収1248円まぁそんなもんか結局やってないからポイント増えないわ、成果ないわで長続きしないのが原因

その他情報

2010-09-15T08:08:38+09:00

#topicpath #contents *治検で稼ぐ [[クビになったら最後の手段で治検>>https://ssl.new-ing.jp/ssl_index.html]] *[[セブン・イレブンフェア>>https://cam.sej.co.jp/ep/CAPC070.do]] 2009/5/29~6/22まで 700円買うとくじがひける応募券かその場であたる目覚まし時計、セブンイレブンの商品があたる応募券の場合特定の枚数を集めるとそれに応募ができ、応募した瞬間にあたりかはずれがわかる詳細は[[本家サイトへ>>https://cam.sej.co.jp/ep/CAPC070.do]] *[[クラブ任天堂>>https://club.nintendo.jp/member/exec/index]] 任天堂のゲームソフトやハードを買うとついてくる紙のシリアルナンバーを入力するとポイントがたまり、ポイントに応じたものと交換できます。 ※たいしたものはないです。タッチペンがまともかなまたポイント数に応じてシルバー、ゴールド、プラチナとランクがあがっていき年に一回ランクに応じたものがもらえます。登録は[[こちら>>https://club.nintendo.jp/member/exec/index]] ※周りの人に言うと結構くれます。あまりみんな興味ないみたい ※もらったポイントを入れるとそのゲームソフト名がでてくるからこの人こんなんやってんだ～ってなります *診療報酬どうも5月から18:00以降の診療が夜間診療扱いになったみたいで夜間診療料が取れれるようになったようだ。 #javascript(){{ }} #javascript(){{ }}

ゲーム/ONLINE

2010-08-11T09:28:37+09:00

#topicpath #html2() {

オンラインゲーム

人によって好みは違うのでとりあえずいままでやったゲームの報告
最近はほとんどオンラインのハンゲーム
基本無料のしかやっていないです。
もとショックウェーブ

名前	リンク	内容	料金	評価(100)	紹介
チョコットランド	画像未:ハンゲへ	2D-RPG	基本無料アイテム課金	70	チョコットなくせにだいぶはまります。シンプルなだけに面白いのかも
R.O.H.A.N (ロハン)	ROHAN	3D-RPG-MMO	基本無料アイテム課金	70	クエストよりもPT狩りが基本グラフィックそこそこ、サウンドそこそこ
RED-STORN (レッドストーン）		2D-RPG-MMO	基本無料アイテム課金	80	クエストで最初のうちはLvがあがっていく町がごみごみしていて最初はとまどったがなれればそれほど苦ではない変身システムだがほとんど変身しなかったキャラにより役割が決まっている感じポータル買わないときついかな 2009/05 秘密のダンジョンがあるらしく1Lv/1日はあがるらしい
Legend of LUNA (レジェンドオブルナ)	画像未:ハンゲへ	3D-RPG-MMO	基本無料アイテム課金(主にアバター)	90	Lv50近くまではさくさくあがるので楽しい転職して強くしていくゲームクエスト、敵倒すでLvあげていきます
ARCHLORD (アークロード)	画像未:ハンゲへ	3D-RPG-MMO (ファンタジーらしい）	基本無料アイテム課金	70	画像はりきりすぎでだいぶリアル PKありです
R2-Reign of Revolution アールツーレインオブレボリューション	画像未:ハンゲへ	3D-RPG-MMO (ファンタジーらしい）	基本無料アイテム課金	??	まだやっていないです。うりは攻城戦のようで人がめちゃくちゃ参加していましたなのでギルド力をあげて城を取るゲームかな β速攻でBOT現れているようです
GODIUS ガディウス	画像未:公式サイトへ	2D-RPG-MMO	600円/1月 3000円/6ヶ月	30	初めてやったオンラインあとで気づいたのが相当のマゾゲー Lvあがると玉がもらえてそれでスキルをあげるそれがしょっちゅう失敗するからLv40でもLv20より弱いこともある裁縫とかがあって自分で服とか回復とか作れます
ブライトシャドウ	画像未:公式サイトへ	3D-RPG-MMO	基本無料アイテム課金	50	カードで召還して、一緒に敵を倒す師弟システムみたいのがありますクエストと敵倒してレベルをあげていきます
R.O.S.EONLINE ローズオンライン	画像未:公式サイトへ	3D-RPG-MMO	基本無料アイテム課金	50	転職システムでLv10になるとサンドで転職クエが受けれる 4つの職業にわかれるなんかだらだらした感じで、敵は豊富
ｈｏｍａｇｅオマージュ	リンク	3D-RPG-MMO	基本無料アイテム課金	60	紹介
ZOOKEPER	こちら	パズルゲーム	無料	90	嫁がだいぶはまってました。 DSのも買いました。
METALIX TD もとショックウェーブ	こちら	戦略ゲーム	無料	90	だいぶはまりました。結局クリアできなかった大砲、ビーム、地雷をどのように使うかがポイント

} 久々にショックウェーブいったらサービス終了していました。びっくりです。あまったゲーム通貨買い取ってくれるみたい？ #html2() { } #html2() { }