维克苗综合站

早就恶心了国内的选秀，男不男女不女的不说，唱功差，现场氛围差，还总搞虚情假意硬挤眼泪。
上网找了找美国偶像一类的经典片段发在这，有些视频很老了，但只是为了让更多的人知道，看看人家的选秀节目都是什么样的。也不是说我们国家的青少年就比国外的差，但我们的选秀选出来的根本就不是大家想看到的。
崇洋媚外不可取，但国产的渣滓也要打倒！
先发个11岁小女孩的，年纪轻轻声音就很有穿透力

再来个14岁女孩唱Yodel歌曲的，切勿随便尝试，舌头小心打结

查看全文 »

天下情歌千万首，一首歌，一种心情。冒昧将几首耳熟能详、极其经典的英文歌曲分分先后次序——初恋，暗恋，热恋，失恋……说句实话，在这“伤害再所难免”的感情游戏中，你闯过几关了？这“最甜蜜的负担”你背上了没有？这“越挫越勇”的恋爱马拉松，你出发了吗？

　　英文情歌之恋爱全攻略：你到第几关了？——预备——跑！

第一关：青涩初恋？ 
　　——推荐英文歌曲MP3《Proud Of You》

　　痒痒的、暗暗的想念，柔柔的，清澈见底。都是情窦初开的小心思：“我的眼里只有你”“在你之前我从未这样爱过一个人”：无论你是16岁还是26岁，只要你有过那朦朦胧胧的初恋，只要你有过那朝思暮想的经历，你一定会喜欢这首干干净净的情歌。

查看全文 »

查看全文 »

VERSION 5.00
Begin VB.Form Form1
Caption         =   “Form1″
ClientHeight    =   5805
ClientLeft      =   120
ClientTop       =   420
ClientWidth     =   8610
LinkTopic       =   “Form1″
ScaleHeight     =   5805
ScaleWidth      =   8610
StartUpPosition =   3  ‘Windows Default
Begin VB.TextBox Text2
Height          =   345
Left            =   3000
TabIndex        =   9
Text            =   “Text2″
Top             =   360
Width           =   2835
End
Begin VB.TextBox Text1
Height          =   345
Left            =   600
TabIndex        =   8
Text            =   “Text1″
Top             =   270
Width           =   1785
End
Begin VB.CommandButton Command2
Caption         =   “Command2″
Height          =   525
Left            =   3720
TabIndex        =   1
Top             =   1140
Width           =   1245
End
Begin VB.CommandButton Command1
Caption         =   “Command1″
Height          =   525
Left            =   2430
TabIndex        =   0
Top             =   1170
Width           =   1245
End
Begin VB.Label Label6
Caption         =   “Label6″
Height          =   795
Left            =   5160
TabIndex        =   7
Top             =   3750
Width           =   2295
End
Begin VB.Label Label5
Caption         =   “Label5″
Height          =   405
Left            =   2640
TabIndex        =   6
Top             =   3750
Width           =   1425
End
Begin VB.Label Label4
Caption         =   “Label4″
Height          =   1125
Left            =   1200
TabIndex        =   5
Top             =   3750
Width           =   2625
End
Begin VB.Label Label3
Caption         =   “Label3″
Height          =   645
Left            =   5820
TabIndex        =   4
Top             =   2580
Width           =   1995
End
Begin VB.Label Label2
Caption         =   “Label2″
Height          =   645
Left            =   3600
TabIndex        =   3
Top             =   2700
Width           =   1635
End
Begin VB.Label Label1
Caption         =   “Label1″
Height          =   465
Left            =   1530
TabIndex        =   2
Top             =   2790
Width           =   1605
End
End
Attribute VB_Name = “Form1″
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function RegCreateKey Lib “advapi32.dll” Alias “RegCreateKeyA” (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib “advapi32.dll” Alias “RegQueryValueExA” (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib “advapi32.dll” Alias “RegSetValueExA” (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Const error_success = 0&
Const error_baddb = 1009&
Const error_badkey = 1010&
Const error_cantopen = 1011&
Const error_cantread = 1012&
Const error_cantwrite = 1013&
Const error_registry_recovered = 1014&
Const error_registry_corrupt = 1015&
Const error_registry_io_failed = 1016&
Const hkey_classes_root = &H80000000
Const hkey_current_user = &H80000001
Const hkey_local_machine = &H80000002
Const REG_SZ = 1
Const regkey = “softwareMy SoftMy program”
‘接着为各个控件添加代码，代码如下：
Private Sub Command1_Click()
Dim keyvalue As String
Dim retvalue As Long
Dim keyid As Long
retvalue = RegCreateKey(key_local_machine, regkey, keyid)
keyvalue = Text1.Text
retvalue = RegSetValueEx(keyid, “注册名”, 0&, REG_SZ, ByVal keyvalue, Len(keyvalue) + 1)
keyvalue = Text2.Text
retvalue = RegSetValueEx(keyid, “注册公司”, 0&, REG_SZ, ByVal keyvalue, Len(keyvalue) + 1)
If Text1.Text <> “” And Text2.Text <> “” Then
Label3.Caption = Text1.Text
Label5.Caption = Text2.Text
End If
End Sub

Private Sub Command2_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
Dim retvalue As Long
Dim result As Long
Dim keyid As Long
Dim keyvalue As String
Dim subkey As String
Dim bufsize As Long
Label6.Caption = regkey
retvalue = RegCreateKey(hkey_local_machine, regkey, keyid)
If retvalue = 0 Then
subkey = “注册名”
retvalue = RegQueryValueEx(keyid, subkey, 0&, REG_SZ, 0&, bufsize)
If bufsize < 2 Then
keyvalue = “”
retvalue = RegSetValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, Len(keyvalue) + 1)
Else
keyvalue = String(bufsize + 1, ” “)
retvalue = RegQueryValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, bufsize)
keyvalue = Left$(keyvalue, bufsize - 1)
Text1.Text = keyvalue
End If
Label3.Caption = keyvalue

subkey = “注册公司”
retvalue = RegQueryValueEx(keyid, subkey, 0&, REG_SZ, 0&, bufsize)
If bufsize < 2 Then
keyvalue = “”
retvalue = RegSetValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, Len(keyvalue) + 1)
Else
keyvalue = String(bufsize + 1, ” “)
retvalue = RegQueryValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, bufsize)
keyvalue = Left$(keyvalue, bufsize - 1)
Text2.Text = keyvalue
End If
Label5.Caption = keyvalue
End If
End Sub

1.asl=age sex location 英文聊天开场最常用的对白，三个字母相应的代替了三句话，分别是how old are you? male or female? and where are you from? 一句话，我们的原则是越简单越好。

2.cuz/cos=because 因为的缩写

3.2=to 数字代替了字母

4.u/ya=you 你

5.how r u/h r u=how are you 你好吗？你怎么样？ 这是陌生人问好最惯用的问话，当两人熟络起来后，一般会用howare you doing?这样的句子问好，或者是what’s up? 注意回答不要局限于中国式的课本回答，fine,thank you,and you?外国人见多了这种回答会疯的，可以说good,great,just ok,terrible,very bad,soso… 根据实际情况回答；而what’s up的回答一般为 not much,nothing等等

查看全文 »

1. How are you doing?(你好吗？)

　　2. I’m doing great.(我过得很好。)

　　3. What’s up?(出什么事了/你在忙些什么/怎么了？)

　　4. Nothing special.(没什么特别的。)

　　5. Hi. Long time no see.(嗨，好久不见了。)

　　6. So far so good.(到目前为止，一切都好。)

　　7. Things couldn’t be better.(一切顺利。)

　　8. How about yourself?(你自己呢？)

　　9. Today is a great day.(今天是个好日子。)

　　10. Are you making progress?(有进展吗？)

查看全文 »

新战袍助推刘翔0.02秒

新战袍助推刘翔0.02秒

查看全文 »

ARP定义

ARP（Address Resolution Protocol，地址解析协议）是一个位于TCP/IP协议栈中的底层协议，负责将某个IP地址解析成对应的MAC地址。

遭受ARP攻击后现象

ARP欺骗木马的中毒现象表现为：使用局域网时会突然掉线，过一段时间后又会恢复正常。比如客户端状态频频变红，用户频繁断网，IE浏览器频繁出错，以及一些常用软件出现故障等。如果局域网中是通过身份认证上网的，会突然出现可认证，但不能上网的现象（无法ping通网关），重启机器或在MS-DOS窗口下运行命令arp -d后，又可恢复上网。
ARP欺骗木马只需成功感染一台电脑，就可能导致整个局域网都无法上网，严重的甚至可能带来整个网络的瘫痪。该木马发作时除了会导致同一局域网内的其他用户上网出现时断时续的现象外，还会窃取用户密码。如盗取QQ密码、盗取各种网络游戏密码和账号去做金钱交易，盗窃网上银行账号来做非法交易活动等，这是木马的惯用伎俩，给用户造成了很大的不便和巨大的经济损失。

ARP攻击原理

ARP攻击就是通过伪造IP地址和MAC地址实现ARP欺骗，能够在网络中产生大量的ARP通信量使网络阻塞，攻击者只要持续不断的发出伪造的ARP响应包就能更改目标主机ARP缓存中的IP-MAC条目，造成网络中断或中间人攻击。

ARP攻击主要是存在于局域网网络中，局域网中若有一个人感染ARP木马，则感染该ARP木马的系统将会试图通过“ARP欺骗”手段截获所在网络内其它计算机的通信信息，并因此造成网内其它计算机的通信故障。

‘我测试时用到SSTab 控件，会有bug

Option Explicit
Private FormOldWidth As Long
‘保存窗体的原始宽度
Private FormOldHeight As Long
‘保存窗体的原始高度

‘在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
    Dim Obj As Control
    FormOldWidth = FormName.ScaleWidth
    FormOldHeight = FormName.ScaleHeight
    On Error Resume Next
    For Each Obj In FormName
    Obj.Tag = Obj.Left & ” ” & Obj.Top & ” ” & Obj.Width & ” ” & Obj.Height & ” “
    Next Obj
    On Error GoTo 0
End Sub

查看全文 »

WinArpAttacker的界面分为四块输出区域。
第一个区域：主机列表区，显示的信息有局域网内的机器IP、MAC、主机名、是否在线、是否在监听、是否处于被攻击状态。
另外，还有一些ARP数据包和转发数据包统计信息，如
ArpSQ：是该机器的发送ARP请求包的个数
ArpSP：是该机器的发送回应包个数
ArpRQ：是该机器的接收请求包个数
ArpRQ：是该机器的接收回应包个数
Packets:是转发的数据包个数，这个信息在进行SPOOF时才有用。
Traffic：转发的流量，是K为单位，这个信息在进行SPOOF时才有用。
第二个区域是检测事件显示区，在这里显示检测到的主机状态变化和攻击事件。能够检测的事件列表请看英文说明文档。
主要有IP冲突、扫描、SPOOF监听、本地ARP表改变、新机器上线等。当你用鼠标在上面移动时，会显示对于该事件的说明。
第三个区域显示的是本机的ARP表中的项，这对于实时监控本机ARP表变化，防止别人进行SPOOF攻击是很有好处的。
第四个区域是信息显示区，主要显示软件运行时的一些输出，如果运行有错误，则都会从这里输出。
好，软件界面就讲到这里。

查看全文 »