怎樣寫virus

[复制链接]

goodhermit95

2008-4-9 10:32 PM

我放弃那个了，现在我要问：
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

2008-4-10 04:44 AM

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

复制代码

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

goodday

2008-4-10 05:08 AM

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

C# 1行

回复 #52 goodday 的帖子

goodhermit95

2008-4-10 10:16 AM

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

谢谢！

Super-Tomato

2008-4-10 02:34 PM

原帖由 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

2008-4-10 09:35 PM

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

goodday

2008-4-11 12:10 AM