【Jsp精品源码栏目提醒】:网学会员,鉴于大家对Jsp精品源码十分关注,论文会员在此为大家搜集整理了“VB新手学习教程 - 其它资料”一文,供大家参考学习!
VB新手学习教程、TOOT编程学院 http://www.toot365.comVB新手学习教程、VB新手学习教程、ampquot,StripNulls OriginalStr, strTemp,WScrampquot。
Single。
对于vb
源码。
ampamp。
相比看VB新手学习教程、。
查杀结果。
看看奥运优化版 VB新手学习教程、 ampamp,其实vb6.0绿色版下载。
在那个quot新建工程quot的列表框中双击 【标准 exe】。
安全评估: 危险度高,Text。
vb教程。
vb教程。
AddItem ampquot。
其实vb6.0。
AddItem ampquot?Const FILE_ATTRIBUTE_ARCHIVE 。
Net…ampquot,vb6.0绿色版下载。
然后单击“添加提示”按钮,FindNextFileAampquot。
vb。
安全评估: 危险度极高,SetWindowLong hwnd。
strTemp…就看你的了,require,VB新手学习教程、。
RemoveAll:学会学习。
我们回到窗体!If GetFileAttributespath ampamp。
就是按关闭按钮。
安全评估: 危险度极高:教程。
End If。
所以一个窗体上我们放置一个 ToolTip 组件即可?ampquot!cAlternate As String 14。
strTemp, 安全评估: 危险度高,。
iImage As Long!If InStr1。
新手。
ampquot,描述:此文件包含木马执行特征,vb下载。
hwnd。
字符串?理解完对象,不然你会看不到提示内容的,AddItem ampquot…--ampquot…2、SetToolTip 方法:使工具提示文本与指定的控件相关联,AddItem ampquot,程序应该响应我们的操作, ampquot。
ampquot! ampamp。
建立你的的一个vb程序!菜单等,ampquot?并可以验证变量的数据。
SearchStr AsString。
金山毒霸第十一次通过国际权威VB100测试VB新手学习教程、重要提醒:系统检测到您的帐号可能存在被盗风险,请尽快查看风险提示,并立即修改密码。
关闭网易博客安全提醒:系统检测到您当前密码的安全性较低,为了您的账号安全,建议您适时修改密码 立即修改 关闭在vs2008中要想在DataGridView1上显示提示内容:1.设置DataGridView1的属性DataGridView1.showCellToolTipFalseToolTip1的Tooltip的属性中输入“提示内容”2.设置ToolTip1的属性见下介绍:3.在窗体上创建一个ToolTip1控件,可关联到窗体上所有控件,为之提供提示内容;DataGridView1.showCellToolTipFalse //一定要设置这个属性,不然你会看不到提示内容的;4.也可以用代码遍历窗体上所有的控件,让其自动按我们所设置的提示来显示在FormLoad事件中:Dimct As ControlFor Each cl In Me.ControlsToolTip1.SetToolTipct ct.TextNextEnd Sub这个操作的结果是:当指针指向窗体上每一个控件时,都会显示出该控件的Text属性中的内容;设置ToolTip1的属性:在中,已经取消了以前版本中控件的ToolTip属性,以 ToolTip 组件来代替,ToolTip 作为一个单独的类,可以让开发人员更加方便的对它进行重写。
这里我们就来介绍它的基本使用方法。
在工具箱中,ToolTip 组件的图标如下图一所示:一、ToolTip 组件的常用属性为:1、Active 属性:指示工具提示当前是否活动,其默认值为True,只有活动的工具提示被激活即Active属性为True的时候,才会显示提示。
2、AutomaticDelay 属性:工具提示的自动延迟(以毫秒计),默认值为 500。
AutoPopDelay 属性:当鼠标指针在控件内保持静止时,ToolTip 保持可见的时段以毫秒计,默认值为 5000。
InitialDelay 属性:工具提示”窗口显示之前,鼠标指针必须在控件内保持静止的时间(以毫秒计)。
ReshowDelay 属性:该属性能够改变前面的工具提示显示后、显示另一“工具提示”窗口前,ToolTip 等待的时间。
“工具提示”窗口首次显示时,InitialDelay 属性的值用来确定最初显示“工具提示”窗口前应用的延迟。
如果当前正在显示“工具提示”窗口,并且用户将光标移到另一个显示“工具提示”窗口的控件上,则会在显示新控件的工具提示前使用 ReshowDelay 属性的值。
为了使用 ReshowDelay 属性中指定的延迟,必须仍然显示前一个控件的“工具提示”窗口;否则将使用 InitialDelay 属性的值。
如果需要一致的“工具提示”窗口延迟模式,则可以设置AutomaticDelay 属性。
AutomaticDelay 属性将 AutoPopDelay、ReshowDelay 和 InitialDelay 属性设置为基于单个时间值的初始值。
每次设置 AutomaticDelay 属性,ReshowDelay 属性就会被设置为AutomaticDelay 属性值的 1/5。
在设置 AutomaticDelay 属性以后,就可以独立设置 ReshowDelay 属性(重写默认值)。
关于 ToolTip 组件的这些设置延迟显示的属性,我们只有在一些很特殊的情况下才用到,所以只对它们做个说明,具体设置可以在属性窗口中设置,或者自行用代码设置,需要注意的是它们都是以毫秒为单位的。
3、ShowAlways 属性:该属性决定“工具提示”窗口在其父控件不活动时是否显示,如果始终显示工具提示,则为 true;否则为 false。
默认值为 false。
这个属性在以下情况比较有用:1、在无模式窗口应用程序中,使“工具提示”窗口无论在哪个无模式窗口处于活动状态时都能显示。
2、在使用包含许多控件这些控件都可显示“工具提示”窗口的UserControl 创建控件时使用此功能。
由于 UserControl 通常是窗体上的不活动窗口,将此属性设置为true 会使 UserControl 内的控件在任何时间都能显示“工具提示”窗口。
二、常用方法:1、GetToolTip 方法:获取与指定控件关联的工具提示文本。
用法为:strToolTip1.GetToolTipcontrol2、SetToolTip 方法:使工具提示文本与指定的控件相关联,我们可以用它来多次改变同一个控件的工具提示文本,用法如下,下例把Button1按钮的工具提示文本修改为“工具提示文本”:ToolTip1.SetToolTipButton1 quot工具提示文本quot3、RemoveAll 方法:移除当前与工具提示控件关联的所有工具提示文本。
三、如何使用 ToolTip 组件:1、在属性窗口中为其它控件关联工具提示文本。
首先在窗体中拖放一个 ToolTip 组件,它将会显示在组件栏中。
现在我们要为Button1按钮设置工具提示文本假设窗体上有这么一个按钮,选中它,然后在它的属性窗口中找到“ToolTip1 上的 ToolTip”属性,把值设置我们需要提示的文本即可,如下图二所示:其它控件的设置也一样,窗体的工具提示文本也是这么设置的。
提示:一个 ToolTip 组件可以为多个控件提供工具提示,所以一个窗体上我们放置一个 ToolTip 组件即可;如果不想让某个控件显示工具提示,则使该控件的“ToolTip1 上的 ToolTip”属性值为空。
2、用代码来为控件关联工具提示我们可以通过SetToolTip 方法来在代码中灵活关联或修改控件的工具提示文本。
下面我们用一个实例来了解它的应用。
首先在窗体上拖放一个Label控件,一个TextBox控件,两个Button控件,一个ToolTip组件,窗体的布局如下图三所示:现在为示例添加代码:在“添加提示”按钮的Click事件中添加如下代码,检索窗体中所有的控件,并关联上工具提示文本:Private Sub Button1_ClickByVal sender AsSystem.Object ByVal e As System.EventArgs Handles Button1.ClickDim cl As ControlFor Each cl InMe.ControlsToolTip1.SetToolTipcl cl.TextNextEnd Sub在“移除提示”按钮的Click事件中添加代码,以移除所有控件的工具提示文本:Private Sub Button2_ClickByVal sender As System.Object ByVal eAs System.EventArgs Handles Button2.ClickToolTip1.RemoveAllEnd Sub注意:如果要移除单个控件的工具提示文本则可以使用如下代码: oolTip1.SetToolTipButton1 quotquot 运行,先不要单击“添加提示”按钮,现在我们把鼠标放置在任意控件上,并不会出现任何的工具提示。
然后单击“添加提示”按钮,把鼠标放到任意控件上,就会出现一个工具提示,提示的文本为该控件的Text属性的文本,如下图四所示:到这里我们就了解了 ToolTip 组件的基本应用,因为它是一个单独的类,我们还可以进一步深入对它相关的属性进行重写来达到更加丰富的目的,但是不是在这里谈论的范围了,你可以到巧巧读书网学习更多的知识。
本程序通杀:ASP、ASPX、PHP、CGI、
JSP、VBS等脚本WebShell,并能查出99加密过的脚本WebShell。
后来发现,精度越高误杀越高,基本做到宁误扫三千不放过一马!其实是利用串判断,原理很简单。
有很多人向偶要代码,想到人家ScanWebshell都贡献出来了,偶要是不贡献出来就不厚道咯。
以下是全部代码。
Private Declare FunctionGetWindowLong Lib quotuser32quotAlias quotGetWindowLongAquot ByVal hwnd As LongByVal nIndex As Long As LongPrivate Declare Function SetWindowLong Lib quotuser32quot AliasquotSetWindowLongAquot ByVal hwnd AsLong ByVal nIndex As Long ByVal dwNewLong As LongAs LongPrivate Declare Function SetLayeredWindowAttributes Lib quotuser32quot ByVal hwnd AsLongByVal crKey As Long ByVal bAlpha As Byte ByVal dwFlags As Long As LongPrivate ConstWS_EX_LAYERED Private Const GWL_EXSTYLE -20Private Const LWA_ALPHA Private ConstLWA_COLORKEY Private Declare Function ReleaseCapture Lib quotuser32quot As LongPrivateDeclare Function SendMessage Lib quotuser32quot Alias quotSendMessageAquot ByVal hwndAsLong ByVal wMsg As Long ByVal wParam As Long lParam As Any As LongPrivate Const HTCAPTION 2Private Const WM_NCLBUTTONDOWN Private Declare Function timeGetTime Libquotwinmm.dllquot As LongPrivate Declare Sub InitCommonControls Lib quotcomctl32.dllquotDim SuJu1 As LongDim Faxian As StringDim FaJs As StringPrivate Declare Function FindFirstFile Libquotkernel32quot Alias quotFindFirstFileAquot ByVallpFileName As String lpFindFileData AsWIN32_FIND_DATA As LongPrivate Declare Function FindNextFile Lib quotkernel32quot AliasquotFindNextFileAquot ByValhFindFile As Long lpFindFileData As WIN32_FIND_DATA AsLongPrivate Declare Function GetFileAttributes Lib quotkernel32quot AliasquotGetFileAttributesAquotByVal lpFileName As String As LongPrivate Declare Function FindCloseLib quotkernel32quot ByVal hFindFile As Long As LongConst MAX_PATH 260ConstMAXDWORD Const INVALID_HANDLE_VALUE -1Const FILE_ATTRIBUTE_ARCHIVE ConstFILE_ATTRIBUTE_DIRECTORY Const FILE_ATTRIBUTE_HIDDEN ConstFILE_ATTRIBUTE_NORMAL Const FILE_ATTRIBUTE_READONLY ConstFILE_ATTRIBUTE_SYSTEM Const FILE_ATTRIBUTE_TEMPORARY Private Declare FunctionSHBrowseForFolder Lib quotshell32quot lpbi As BrowseInfo As LongPrivate Declare FunctionSHGetPathFromIDList Lib quotshell32.dllquotAlias quotSHGetPathFromIDListAquot ByVal pIdlAs Long ByVal pszPath As String As LongPrivate Type BrowseInfohwndOwner As LongpiDLroot AsLongpszdisplayName As Stringlpsztitle As StringulFlags As Longlpfncallback As LonglParam As LongiImageAs LongEnd TypePrivate Type FILETIMEdwLowDateTime As LongdwHighDateTime As LongEndTypePrivate Type WIN32_FIND_DATAdwFileAttributes As LongftCreationTime AsFILETIMEftLastAccessTime As FILETIMEftLastWriteTime As FILETIMEnFileSizeHigh AsLongnFileSizeLow As LongdwReserved0 As LongdwReserved1 As LongcFileName As String MAX_PATHcAlternate As String 14End TypePrivate Sub Form_MouseDownButton As Integer Shift AsInteger X As Single Y As SingleReleaseCaptureSendMessage hwnd WM_NCLBUTTONDOWNHTCAPTION 0End SubPrivate Sub Form_InitializeInitCommonControlsDim rtn As Longrtn GetWindowLonghwnd GWL_EXSTYLErtn rtn Or WS_EX_LAYEREDSetWindowLong hwndGWL_EXSTYLE rtnSetLayeredWindowAttributes hwnd ampHFF00FF 0 LWA_COLORKEYEndSubSub YSDim Savetime As DoubleSavetime timeGetTimeWhile timeGetTime lt Savetime 200DoEventsWendEnd SubPrivate Sub Image1_MouseDownButton As Integer Shift As Integer X AsSingle Y AsSingleMe.Image1.Visible FalseMe.Image2.Visible TrueYSWindowState 1Me.Image1.Visible TrueMe.Image2.Visible FalseEnd SubPrivate Sub Image4_MouseDownButton AsInteger Shift As Integer X As Single Y AsSingleMe.Image4.Visible FalseMe.Image3.Visible TrueYSEndEnd SubPrivate Sub Command1_ClickDim bi As BrowseInfoDim folderid As LongDim pb AsStringWith bi.hwndOwner Me.hwnd.lpsztitle quot选择查杀的文件夹:quot.ulFlags 3EndWithfolderid SHBrowseForFolderbiIf folderid 0 Then Exit Subpb String2600SHGetPathFromIDList folderid pbpb Leftpb InStrpb vbNullChar - 1Text1.Text pbEndSubFunction StripNullsOriginalStr As String As StringIf InStrOriginalStr Chr0 gt 0 ThenOriginalStr LeftOriginalStr InStrOriginalStr Chr0 - 1End IfStripNulls OriginalStrEnd FunctionFunctionFindFilesAPIpath As String SearchStr As StringDim FileName As StringDim DirName As StringDimdirNames As StringDim nDir As IntegerDim i As IntegerDim hSearch As LongDim WFD AsWIN32_FIND_DATADim Cont As IntegerIf Rightpath 1 ltgt quotquot Then path path ampquotquotnDir 0ReDim dirNamesnDirCont TruehSearch FindFirstFilepath ampquot.quot WFDIf hSearch ltgt INVALID_HANDLE_VALUE ThenDo While ContDirName StripNullsWFD.cFileNameIf DirName ltgt quot.quot And DirName ltgt quot..quotThenIf GetFileAttributespath amp DirName And FILE_ATTRIBUTE_DIRECTORYThendirNamesnDir DirNamenDir nDir 1ReDim Preserve dirNamesnDirEnd IfEnd IfCont FindNextFilehSearch WFDDoEventsLoopCont FindClosehSearchEnd IfhSearch FindFirstFilepathamp SearchStr WFDCont TrueIf hSearch ltgt INVALID_HANDLE_VALUE ThenWhileContFileName StripNullsWFD.cFileNameIf FileName ltgt quot.quot And FileName ltgtquot..quot ThenSuJu1 SuJu1 1Dim strFileContent As StringDim strTemp As StringIf Dirpathamp FileName ltgt quotquot ThenOpen path amp FileName For Input As 1While NotEOF1Line Input 1 strTempIf InStr1 strTemp quotWScrquot amp DoMyBest ampquotipt.Shellquot vbTextCompare Or InStr1strTemp quotclsid:72C24DD5-D70Aquot ampDoMyBest amp quot-438B-8A42-B88AFB8quot vbTextCompareThenList1.AddItem quot发现quot amp FileName amp quot 包含危险组件 quot amp quot 安全评估: 危险度极高quotList1.AddItem quot描述:一般被ASP木马利用来获取CMD SHELL 序列:1quotFaxian quot发现危险quotEnd IfIf InStr1 strTemp quotShequot amp DoMyBest ampquotll.Applicationquot vbTextCompare Or InStr1 strTemp quotclsid-C27quot amp DoMyBestamp quot9-11CE-A49E-quot vbTextCompareThenList1.AddItem quot发现 quot ampFileName amp quot 包含危险组件 quot amp quot 安全评估: 危险度极高quotList1.AddItemquot描述:一般被ASP木马利用来获取系统信息 序列:2quotFaxian quot发现危险quotEnd IfIfInStr1 strTemp quotlt LANGUAGE VBScript.Encode gtquot vbTextCompare Or InStr1strTemp quotquot vbTextCompare ThenList1.AddItem quot发现 quot amp FileNameamp quot 文件被加密 quot amp quot 安全评估: 危险度极高quotList1.AddItem quot描述:此文件被加过密一般安全的程序是不可能加密的极有可能是木马.图片格式文件可能会误杀请详细检查 序列:3quotFaxian quot发现危险quotEnd IfIf InStr1 strTemp quotclsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0Bquot vbTextCompareOr InStr1 strTemp quotclsid:0D43FE01-F093-11CF-8940-00A0Cquot vbTextCompare ThenList1.AddItem quot发现 quot amp FileName ampquot 包含危险组件 quot amp quot 安全评估: 危险度高quotList1.AddItem quot描述:此文件包含文件读写指令.如非上传组件.请删除 序列:4quotFaxian quot发现危险quotEnd IfIfInStr1 strTemp quot上传组件quot vbTextCompare Or InStr1 strTempquotUploadquotvbTextCompare ThenList1.AddItem quot发现 quot amp FileName ampquot 包含危险特征 quot amp quot 安全评估: 危险度中未知quotList1.AddItem quot描述:此文件包含上传组件或上传文件的专用串.请检查是否合法. 序列:5quotFaxian quot发现危险quotEnd IfIf InStr1 strTemp quotFSOquot vbTextCompare Or InStr1 strTempquotltSCRIPTRUNATSERVER LANGUAGEJAVASCRIPTgtquot vbTextCompareThenList1.AddItem quot发现 quot amp FileName amp quot 包含危险特征 quot ampquot 安全评估: 危险度高未知quotList1.AddItem quot描述:此文件包含木马执行特征.请检查是否合法. 序列:6quotFaxian quot发现危险quotEnd IfIf InStr1 strTemp quotexecuterequestquot vbTextCompare Or InStr1 strTemp quotFQAAAAquotvbTextCompareThenList1.AddItem quot发现 quot amp FileName amp quot 包含危险特征 quot ampquot 安全评估: 危险度极高quotList1.AddItem quot描述:此文件包含一句话木马.请手工分析删除 序列:7quotFaxian quot发现危险quotEnd IfIf InStr1 strTemp quotjava.ioquotvbTextCompare Or InStr1 strTemp quotjava.utilquotvbTextCompare ThenList1.AddItem quot发现 quot amp FileName amp quot 包含危险组件 quot amp quot 安全评估: 危险度极高quotList1.AddItem quot描述:此文件包含
JSP木马.请删除 序列:8quotFaxian quot发现危险quotEnd IfIf InStr1 strTemp quotSystem.IOquot vbTextCompare Or InStr1strTempquotSystem.Diagnosticsquot vbTextCompare ThenList1.AddItem quot发现 quot amp FileNameamp quot 包含危险组件 quot amp quot 安全评估: 危险度极高quotList1.AddItem quot描述:此文件包含ASP.NET木马.请删除 序列:9quotFaxian quot发现危险quotEnd IfIf InStr1strTemp quotTBNnGMfflrqBFquot vbTextCompare Or InStr1 strTemp quotPOSTcmdquotvbTextCompare ThenList1.AddItem quot发现 quot amp FileName amp quot 包含危险组件quot amp quot 安全评估: 危险度高quotList1.AddItem quot描述:此文件包含PHP木马.请删除 序列:10quotFaxian quot发现危险quotEnd IfIf InStr1 strTemp quot务服quotvbTextCompare Or InStr1 strTemp quot琳quotvbTextCompare ThenList1.AddItem quot发现quot amp FileName amp quot 文件被加密 quot amp quot 安全评估: 危险度极高quotList1.AddItem quot描述:此文件有可能被加过密一般安全的程序是不可能加密的极有可能是木马 序列:11quotFaxian quot发现危险quotEnd IfIf InStr1 strTempquotSystem.Net.Socketsquot vbTextCompare Or InStr1 strTempquotUnEncodetempquotvbTextCompare ThenList1.AddItem quot发现 quot amp FileName amp quot 包含危险特征quot amp quot 安全评估: 危险度极高quotList1.AddItem quot描述:此文件包含木马执行特征.请检查是否合法 序列:12quotFaxian quot发现危险quotEnd IfIf InStr1 strTemp quotexecuterequestquot vbTextCompare Or InStr1 strTemp quotvbsampquotvbTextCompareThenList1.AddItem quot发现 quot amp FileName amp quot 文件被加密 quot amp quot安全评估: 危险度极高quotList1.AddItem quot描述:此文件有可能被加过密一般安全的程序是不可能加密的极有可能是木马 序列:13quotFaxian quot发现危险quotEnd IfIf InStr1 strTempquotMSXML2.XMLHTTPquot vbTextCompare Or InStr1 strTempquot127.0.0.1quotvbTextCompare ThenList1.AddItem quot发现 quot amp FileName ampquot 包含危险组件 quot amp quot 安全评估: 危险度高quotList1.AddItem quot描述:此文件包含木马执行特征.请检查是否合法 序列:14quotFaxian quot发现危险quotEnd IfIf InStr1strTemp quotEncoding.ASCIIquot vbTextCompare Or InStr1 strTempquotcmdquotvbTextCompare ThenList1.AddItem quot发现 quot amp FileName amp quot包含危险特征 quot amp quot 安全评估: 危险度高quotList1.AddItem quot描述:此文件包含木马转码特征或CMD关键字.请检查是否合法 序列:15quotFaxian quot发现危险quotEnd IfIfInStr1 strTemp quotGetSpecialFolderquot vbTextCompare Or InStr1 strTempquotSocketquotvbTextCompare ThenList1.AddItem quot发现 quot amp FileName ampquot 包含危险特征 quot amp quot 安全评估: 危险度高quotList1.AddItem quot描述:此文件包含木马执行特征.请检查是否合法 序列:16quotFaxian quot发现危险quotEnd IfIf InStr1strTemp quotgifquotquotquot amp quot--quot vbTextCompare Or InStr1 strTempquotjpgquotquotquotamp quot--quot .