最后忍无可忍，采用了几乎认输的办法，覆盖了一遍操作系统，勉强收尾，此时此刻头都快炸了。毕竟还要用它来工作，只要它还能喘气我就不修了。

流氓软件我认为是那些依靠流氓手段而非机主自愿安装的软件，另外提供安装但是不提供卸载的软件也应该算是流氓软件。流氓软件之所以会落户到电脑上目前主要通过一些软件安装时的捆绑，另外就是通过浏览器将软件“种入”用户的电脑。流氓软件目前最大的恶习就是不断地弹出垃圾网站，以达到其商业目的。之所以说它流氓因为有时杀毒软件对于它们没什么好办法，所以清理起来比较郁闷。

暑假完毕发现我的办公电脑上由于他人的使用而不幸感染了，一番处理之后几个问题解决了，也可以使用了，但是还有一个没有清理掉，心里很少不爽。今天上午决定进行最后的围剿，行动从九点多开始。首先是用瑞星卡卡社区反浏览器劫持板块下载了几个有用的软件，hijackthis lspfix等，扫描了一下发现有个叫wshcon32.dll的家伙植入了winsock层中，感觉应该是它，从道理上也说得过去，这样很便于弹出垃圾网站，而且也很不容易发现。既然发现了，立刻着手清理。

殊不知发现了问题却引来了一系列的麻烦，首先是该文件无法删除拒绝访问，为此尝试结束调用该文件的进程后删除，期间学到了结束进程的新命令ntsd，并且经历了历次重启电脑，最后得出结论winlogon，lsass，services进程虽然是可以强制结束掉的，但后果就是系统报错然后重启，也就是说这样做基本上是没用的，不过得出这些结论的代价是两个多小时。后来实在烦了，现刻了一张win2000的安装光盘启用了故障恢复台，在命令模式下果然好用，痛快地删除了wshcon32.dll和updown.exe，真是大快人心啊。重启却发现系统进不去了，不断地自动登录和注销，看来麻烦大了。又用故障台自动修复了一遍，系统直接蓝屏了，我晕！好在安全模式还能进入，继续查找问题所在吧，至此已经下午一点半了。如果当初直接重新安装系统的话也应该早就好了，真他妈的恼火。（未修好，待续）

        今天整理助学贷款郁闷，无奈中翻看以前的资料，使用了如下的代码控制键盘事件。

Sub 助学贷款()
aa = Trim(ActiveSheet.Name)
If aa = "助学贷款明细" Then

If ActiveCell.Row > 2 Then
    If ActiveCell.Column = 1 Then
        ActiveCell.Offset(0, 2).Select
    ElseIf ActiveCell.Column = 3 Then
        ActiveCell.Offset(0, 1).Select
    ElseIf ActiveCell.Column = 4 Then
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
    ElseIf ActiveCell.Column = 5 Then
        ActiveCell.Offset(1, -4).Select
    End If
Else
    ActiveCell.Offset(1, 0).Select
   
End If

End If
End Sub

 

 

       在sheet2中增加如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "{ENTER}", "助学贷款"
End Sub

     在单元格中增加如下公式：

IF(ISERROR(VLOOKUP(F745,数据字典!G:H,2,FALSE)),0,VLOOKUP(F745,数据字典!G:H,2,FALSE))

 

然后ok，该代码达到的效果是，在第一列中输入学号，回车后自动跳至第三列，同时在第二列中查找出其对应的学生姓名；第三列输入金额回车后自动跳入第四列，依次类推；在第五列回车时，自动跳入下一行的第一列。