nghe_an

New Member
ồ hàng độc đấy cái này khó đây tìm mấy bác pro vào giúp coi nào .mình nhìn cũng KẾT thích rồi hehe
 

thu_antina

New Member
mình thấy trên có khá nhiều flash kiểu này .chắc cũng không khó đến vậy chứ
 

kid_wizard

New Member
ko làm dc thì ta edit vừa edit cái này xog

---------- Bài thêm lúc 03:20 ---------- Bài trước là lúc 03:11 ----------

............
 
edit thế nào vậy bạn


cái trên được làm bởi 1 bạn khá trẻ tuổi mình nghĩ chắc có phần mềm chuyên làm cái này hay 1 web nào đó .hiện vẫn chưa tìm ra
 
tui cũng đang tìm xem nó dc tạo bằng soft nào , có lẽ là tương tự như flashtext , có sẵn

---------- Bài thêm lúc 04:26 ---------- Bài trước là lúc 03:47 ----------

Đã có cách
 

Gilberto

New Member
share luôn trên này cho tất cả người cùng biết .giấu nghề tất cả người lại bảo là kẹo kéo
 

Napier

New Member
Công nhận là đẹp thật, goodluck


P/s: Site này còn nhiều trò hơn nhiều nè các bạn
 
tamthangia đây roài

Bạn có biết làm không chỉ dẫn cho mình với!


Nhanh lên bạn nhé! Sắp giáng sinh rồi ^^


Mình cám ơn!
 

Clustfeinad

New Member
mình có đoạn code này cũng hay . nhưng chạy trên windows 7 không được . windows xp thi được . ai pro giải KẾT giúp mình với .

On Error Resume Next

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("Hi,ten toi la Vn-Zoom.......")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop

Wscript.Sleep 100

On Error Resume Next

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("downloading virus HIV giai doan thu cuoi 1%. . . 26% . . . 45% . . . 54% . . . 88% . . . 100% virus downloaded")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop

Wscript.Sleep 100

On Error Resume Next

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("may ban co o dia thi no se tu dong mo ra.......")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop

Wscript.Sleep 100




Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.CdromCollection


If colCDROMs.Count >= 1 then

For I = 0 to colCDROMs.Count - 1

ColCDROMs.Item(I).Eject

Next ' cdrom

End If



Wscript.Sleep 100

On Error Resume Next

StrAgentName2 = "MERLIN"

StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"

Set objAgent2 = CreateObject("Agent.Control.2")

ObjAgent2.Connected = TRUE

ObjAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

ObjPeter.MoveTo 700,300

ObjPeter.Show

ObjPeter.Play "GetAttention"

ObjPeter.Play "GetAttentionReturn"

ObjPeter.Speak("ghe tham dien dang nay .. de cung nhau chia se kien thuc")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop

Wscript.Sleep 100

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "iexplore http:http://ket-noi.com/forum", 9

`-------------------------------------

copy vào notepad , save lại với tên_gì_ cũng_được.vbs . ví dụ : abc.vbs
 

Các chủ đề có liên quan khác

Top