| 登入 | 藍色小舖
認識藍色部落 新手上路 熱門部落 熱門文章 搜尋部落
  會員資訊line
姓  名: 藍色部落會員
暱  稱: 空白
自我介紹:
              
我的部落  

詳細資料  

          --本區資訊需先登入--我要登入       line
留言給我
          
2012-09-26 19:47:41
樓下VB6程式問題
及時通:sadu5537@yahoo.com.tw
2012-09-26 19:43:56
VB6 程式碼問題
以下為我的程式碼 不知道哪裡出錯@@"
 
她出現91沒有設定物件變數
 
Private Sub Check1_Click()

If Check1.Value = 1 Then '有勾選記憶密碼的話就產生紀錄檔
  Open App.Path & "UserData.txt" For Output As #1
    Print #1, "UID:" & Text1.Text '將帳號寫入文字檔
    Print #1, "PWD:" & Text2.Text '將密碼寫入文字檔
  Close #1
Else
Kill App.Path & "UserData.txt" '沒有勾選記憶密碼的話就把紀錄檔刪除
End If
End Sub

Private Sub Command1_Click()
WebBrowser1.Document.body.All("Image21").Click  '登入原始碼
Text1 = WebBrowser1.Document.body.All("gameid").Click '帳號原始碼

Text2 = WebBrowser1.Document.body.All("pwd").Click '密碼原始碼

End Sub

Private Sub Command2_Click()
WebBrowser2.Navigate "https://my.wayi.com.tw/member/forget_pw_mail.aspx"
End Sub

Private Sub Command3_Click()
WebBrowser2.Navigate "http://sf.wayi.com.tw/iframe-news.aspx"
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://sf.wayi.com.tw/") '輸入網頁
WebBrowser2.Navigate "http://sf.wayi.com.tw/iframe-news.aspx"

Dim ReadUserData As String

If Dir(App.Path & "UserData.txt") <> "" Then
Check1.Value = 1
  Open App.Path & "UserData.txt" For Input As #1
    Do While Not EOF(1)
      Line Input #1, ReadUserData
      Select Case Left(ReadUserData, 4)
        Case "UID:" '讀取帳號資料
          Text1.Text = Mid(ReadUserData, 5, Len(ReadUserData) - 4)
        Case "PWD:" '讀取密碼資料
          Text2.Text = Mid(ReadUserData, 5, Len(ReadUserData) - 4)
      End Select
    Loop
  Close #1
End If
End Sub

2010-09-25 16:45:56
as
你的文章寫的很棒喔^^   我想分享一個很棒的機會給你:


這是一個 -- 真正 已被證明最有效的致富創業  
 

o 網路評鑑第一

o 富爸爸窮爸爸 作者 唯一推薦

o [秘密]一書, 成功致富心法大師推薦

你有一個很好的機會獲得  循環收入  及 時間自由 ! :) 

-->  http://azyyeayzz.weebly.com/ 

2009-10-17 14:39:41
關於VB的問題
我VB有點問題
想要問ㄋVBㄉinputbox密碼要變成*號要怎麼用??
可以的話加我及時通:qwe41011@yahoo.com.tw
回應:
http://itgroup.blueshop.com.tw/moan/it_club?n=convew&i=6728 這篇寫的很清楚囉
2009-03-31 08:49:18
你好~~想問一下
你好~~你有辦法幫我寫一個無心寵物外掛嗎??
有興趣的話,就看如何收費
請與我連絡,jerry@meritlilin.com.tw
bg
    
| 關於藍色部落 | 加值服務 | 大事紀 | 廣告刊登 | 常見問題 | 聯絡我們 |
藍色小舖 版權所有 ©copyright 2008 All Rights Reserved