2009年6月8日 星期一

VB"6"--即時通整人程式原始碼

前言
昨天阿
還真是遇到百年難得一件的大笑話了
我那可憐的傢伙也自爆的太慘了吧XDDD
居然真的有人會中這種陷阱真不知該說啥
(不過其實也不能怪他啦是我太強了XDDD)
不過一般防火牆應該會擋吧(我不確定我從沒中過這是我要整人用的)

總之這契機讓我好奇為啥
即時通改狀態用程式有這麼容易嗎?

去查了一下
結果....

還真是簡單到不行阿囧

首先有程式碼恐懼症的
有個更狠得程式推薦給您
即時通狀態鎖定程式
這個我不會寫(沒時間研究= =)
但我是會改名稱啦
我個人認為這對電腦白痴來說威力強了點
小心玩過頭

上面的網址裡有載點跟解決方法
請安心實用(我用小紅傘掃過毒勒)
(要下我的測試版也行啦)



﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍
接下來
才是真正可以"動手玩創意"的程式時間勒
那個有趣的傢伙應該就是中這種的
首先
請準備VB6的程式(VB2005那種的我用不出來)
會稍微寫VB2005就能玩得很爽了
這兩個東西基本上很像
接下來
請先選 專案--﹚設定引用元件----把Yahoo! Messenger TypeLib打勾


之後就可以發揮你的創意
想辦法促使人上當受騙啦
像醬
弄個幾個輸入格
讓他輸入一些東東
在幫他加油添醋

等一切好了
在重要的按鈕"確定"
的程式碼打上

//NoReturn (yahoo.Me.Status.SetCustomStatus("你想打得狀態", 0, Null, Null))
//另外記得另外創個
//Sub NoReturn(a)

//End Sub

應該就能勒

測試還算ok!
不過不排除我不愛用即時故我的版本還很舊
另外
雖然撰寫跟編譯都沒問題
不知為啥
我抓的免安裝vb6不准我輸出exe檔耶??
可能跟那是精簡版有關吧

所以不能拿來胡亂傳撥真是可惜囧
不過回歸前言
現代人還真的會有這種笨蛋會被騙喔囧
(真的有可惜為了我的人生安全不敢貼圖)
另外只要是用隱藏這兩個方法都會失效
不過第一個是持續性的你恢復的話他也會繼續辛勤工作的XD
總之最近會繼續把他用完美點XDDD
『因此C#暫停一下』

12 則留言:

  1. 可不可以把你做的那個冬冬的語法貼上來
    因為沒有對照
    如果可以
    那就太感謝了

    回覆刪除
  2. OK是OK
    不過我連結的VB6精簡版裡面就有專案Project1.vbp可以開來看阿^^
    http://cid-f8d14eeee8a7227d.skydrive.live.com/self.aspx/%e5%85%ac%e9%96%8b/VB6%e7%b2%be%e7%b0%a1%e7%89%88.exe

    Private Sub Command1_Click()
    Dim yahoo As New Messenger2
    NoReturn (yahoo.Me.Status.SetCustomStatus("於" + Text5.Text + "月" + Text4.Text + "日" + Text1.Text + "要向" + Text2.Text + "求婚耶!!", 0, Null, Null))
    Label3.Caption = "成功率100%"
    End Sub
    Sub NoReturn(a)

    End Sub


    Private Sub Text2_Change()

    End Sub

    回覆刪除
  3. 怎麼即時通一直猛上線???
    YAHOO:y0935027881

    回覆刪除
  4. 那個 我就是被這個整的
    可不可以教我怎麼弄掉T_T

    回覆刪除
  5. TO 匿名
    ~聽起來應該是中重開機照樣執行的版本吧
    首先確認你中的檔案外觀圖示是啥
    再到
    C:\WINDOWS 找看看有沒有ctfmon.exe 圖示符合
    按右鍵內容確認版本頁裡的註解是不是你被整得字串
    叫出工作管理員Ctrl+Alt+Del切到處理程序
    找出該檔先把他結束再把C巢的檔案刪除重開機看看

    回覆刪除
  6. 請問能不能傳給我 Yahoo Messenger TypeLib
    這個控件呢= =?
    我路上我已經看到都一樣的東西了= =||
    都是 設定引用元件 -> Yahoo Messenger TypeLib
    可是都已經安裝及時通了還是找不到阿= =

    回覆刪除
  7. 這個控件跟即時通沒關係吧~(其實我不知道囧)
    你要不要重抓vb6看看

    回覆刪除
  8. 請問一下
    我做出來的沒辦法像你做的一樣一直重複耶
    我做出來的改一下就沒了
    不像你做的測試可以一直跑出來
    這是要調哪裡呀?

    回覆刪除
  9. 如果是用vb6自己寫得
    因為作者的原文砍掉了~我也不知道
    (去試著找看看開機自動啟動的程式碼)
    而直接從測試那裡改文字的
    好像不是xp無法成功隨開機啟動(實驗vista失敗)

    回覆刪除
  10. 請問一下...

    白色長方形 可以複製內容的區塊
    那個怎麼做出來的....

    回覆刪除
  11. ?程式碼那邊的嗎?
    http://www.inote.tw/2009/02/blogger.html
    請參考

    回覆刪除
  12. 裡面有一點看不懂....
    http://www.inote.tw/2009/02/blogger.html
    請問是否將程式碼copy給我呢...
    或是有更詳細的解說
    謝謝您

    回覆刪除