怎樣寫virus

goodhermit95

我放弃那个了，现在我要问：
if textbox1:http://www.a%sgdgh#.com/
a button need the command to change "a%sgdgh#" to this:
text box 2:http://www.utube.com/
(after click the button then apper in text box 2)
means change text:"a%sgdgh#" in text box one change to "utube" and apper in text box two,another no changes so its same
no changes="http://www..com"

帮我弄一下代码。。。麻烦你了

[ 本帖最后由 goodhermit95 于 2008-4-9 10:34 PM 编辑 ]

goodday

1. Public Class Form1
   
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
3.         Dim ArryStr As String() = Me.TextBox1.Text.Split(".")
   
4.         Dim EndIndex As Integer = ArryStr.Length - 1
   
5.         Me.TextBox2.Text = ArryStr(0) & "." & "utube" & "." & ArryStr(EndIndex)
   
6.     End Sub
   
7. End Class

复制代码

[ 本帖最后由 goodday 于 2008-4-10 05:05 AM 编辑 ]

goodday

三行收工
爽~~~~~~
还能减  的

C# 1行

goodhermit95

有弄错吗？我要的是VB。。。不是end sub 吗？
我写出来会放你名字的 谢谢！

Super-Tomato

原帖由 goodhermit95 于 2008-4-10 10:16 AM 发表
有弄错吗？我要的是VB。。。不是end sub 吗？
我写出来会放你名字的 谢谢！

goodday已經寫出了他是會用 split 來處理啊

Dim url() as String
url = split(Text1.text)
'這樣一來 url(0) 和 url(2) 就是你原本的 http://www 和 com
'再來就是用 & 把這個陣列串連起來就好了啊
MsgBox(url(0) & "utube" & url(2))

goodhermit95

可是我放下去一直出error。。。说 （）有问题，不然 = 有问题 ，怪怪的！！什么都不能！还是我的VB有问题

goodday

原帖由 goodhermit95 于 2008-4-10 10:16 AM 发表
有弄错吗？我要的是VB。。。不是end sub 吗？
我写出来会放你名字的 谢谢！

哇~~ 不要搞这样大叻
你是vb6 啊？？？

goodday

1. 
   
2. dim Input
   
3. Input = inputbox("Input Domain","jbtalks.cc Forver","http://www.a%sgdgh#.com/")
   
4. 
   
5. Dim AryA
   
6. AryA = split(Input,".")
   
7. 
   
8. Dim ArryAindex
   
9. ArryAindex = UBound(AryA)
   
10. 
    
11. MsgBox(AryA(0) & "." & "utube" & "." & AryA(ArryAindex))
    

复制代码

开notepas   save as ===> a.vbs
paste code 进去

goodday

如果是 .com.my 叻
？？？
上车咯~~~~
有BUG ~~~
老了

goodday

原帖由 goodhermit95 于 2008-4-10 09:35 PM 发表
可是我放下去一直出error。。。说 （）有问题，不然 = 有问题 ，怪怪的！！什么都不能！还是我的VB有问题

http://doc.51windows.net/vbscrip ... /html/vsfctCStr.htm
自己进去看
我老了~~~~~