808源码
url="theabovestring"
ips=[]
parts=url.split('&')
forpartinparts:
ifpart.startswith('path='):
ips=part.split('=')[1].split(',')
break
printips
② 大侠，把硬盘物理序列号的VB源代码 也发给我下，着急啊，谢谢，[email protected]
Imports System.Management
Imports System.IO
Imports ErrPlug = CC.PublicTools.StrEdit.ErrorStr
Partial Public Class HardWare
Public Sub New()
MyBase.New()
End Sub
Public Class HardDiskInfo
Public Sub New()
MyBase.New()
End Sub
Public Class HardDrive
Public Sub New()
MyBase.New()
End Sub
''' <summary>
''' 返回单个的硬盘信息。
''' </summary>
''' <remarks></remarks>
Public Class _HardDrive
Public Sub New()
MyBase.New()
End Sub
Public DriveID As Integer
Public TotalSize As String
Public DiskTypes As String
Public DiskModel As String
Public FingerKey As String
Public Overloads Function ToString() As String
Return String.Format("DiskID:{0}|Type:{1}|Model:{2}|Size:{3}|FigSn:{4}", DriveID, DiskTypes, DiskModel, TotalSize, FingerKey)
End Function
End Class
''' <summary>
''' 执行获取磁盘硬盘信息的过程函数。
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function DoGetHardDriveInfo() As List(Of _HardDrive)
Dim ResultDriveList As List(Of _HardDrive) = New List(Of _HardDrive)
Try
Dim query As New SelectQuery("Win32_DiskDrive")
Using search As New ManagementObjectSearcher(query)
Dim ITempa As Integer = 0
For Each info In search.Get()
ITempa += 1
Application.DoEvents()
' ResultDiskList.AllDiskCount += 1
Dim NewDisk As _HardDrive = New _HardDrive() With {.DriveID = ITempa}
If info("TotalSectors") IsNot Nothing Then
NewDisk.TotalSize = StrEdit.NumConvert.FormatBytes(CDbl((CType(info("TotalSectors"), UInt64) * CType(info("BytesPerSector"), UInt32))))
Else
NewDisk.TotalSize = "Unknown"
End If
If info("InterfaceType") IsNot Nothing Then
NewDisk.DiskTypes = info("InterfaceType").ToString
Else
NewDisk.DiskTypes = "Unknown"
End If
If info("Model") IsNot Nothing Then
NewDisk.DiskModel = info("Model").ToString
Else
NewDisk.DiskModel = "Unknown"
End If
If info("signature") IsNot Nothing Then
NewDisk.FingerKey = info("signature").ToString
Else
NewDisk.FingerKey = "Unknown"
End If
ResultDriveList.Add(NewDisk)
Next
End Using
Catch ex As Exception
ErrPlug.WriteErrorLog(ex)
End Try
Return ResultDriveList
End Function
End Class
Public Class DiskPart
Public Sub New()
MyBase.New()
End Sub
Public Class _DiskPart
Public Sub New()
MyBase.New()
End Sub
Public PartLetter As String
Public PartType As String
Public PartFileSystem As String
Public PartIsReady As Boolean
Public PartLabel As String
Public PartTotalSize As String
Public PartUsedSize As String
Public PartFreeSize As String
Public PartSerialNo As String
Public PartFressPersent As String
Public Overloads Function ToString() As String
Return "Name:" & PartLetter & "|Type:" & PartType & "|F.S.:" & PartFileSystem & "|IsReady:" & PartIsReady & "|Label:" & PartLabel & _
"|Total:" & PartTotalSize & "|Used:" & PartUsedSize & "|Free:" & PartFreeSize & "|SN:" & PartSerialNo & "|FreeP:" & PartFressPersent
End Function
End Class
''' <summary>
''' 执行返回磁盘分区信息的列表。
''' </summary>
''' <remarks></remarks>
Public Shared Function DoGetDiskPartList() As List(Of _DiskPart)
Dim ResultPartList As List(Of _DiskPart) = New List(Of _DiskPart)
Try
Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim CurDriver As DriveInfo
For Each CurDriver In allDrives
Application.DoEvents()
Dim NewPart As _DiskPart = New _DiskPart() With {.PartLetter = CurDriver.RootDirectory.ToString, .PartType = CurDriver.DriveType.ToString}
If CurDriver.IsReady = True Then
NewPart.PartFileSystem = CurDriver.DriveFormat
Else
NewPart.PartFileSystem = ""
End If
NewPart.PartIsReady = CurDriver.IsReady
If CurDriver.IsReady = True Then
NewPart.PartLabel = CurDriver.VolumeLabel
Else
NewPart.PartLabel = ""
End If
If CurDriver.IsReady = True Then
NewPart.PartTotalSize = StrEdit.NumConvert.FormatBytes(CDbl(CurDriver.TotalSize))
Else
NewPart.PartTotalSize = ""
End If
If CurDriver.IsReady = True Then
NewPart.PartFreeSize = StrEdit.NumConvert.FormatBytes(CDbl(CurDriver.TotalFreeSpace))
Else
NewPart.PartFreeSize = ""
End If
If CurDriver.IsReady = True Then
NewPart.PartUsedSize = StrEdit.NumConvert.FormatBytes(CDbl(CurDriver.TotalSize - CurDriver.TotalFreeSpace))
Else
NewPart.PartUsedSize = ""
End If
If CurDriver.IsReady = True Then
NewPart.PartFressPersent = String.Format("{0}%", FormatNumber(CDbl(CurDriver.TotalFreeSpace / CurDriver.TotalSize * 100), 1))
Else
NewPart.PartFressPersent = "0.00%"
End If
If CurDriver.IsReady = True Then
NewPart.PartSerialNo = GetVolumeSerialNumber(CurDriver.RootDirectory.ToString)
Else
NewPart.PartSerialNo = ""
End If
ResultPartList.Add(NewPart)
Next
Catch ex As Exception
ErrPlug.WriteErrorLog(ex)
End Try
Return ResultPartList
End Function
End Class
''' <summary>
''' 获取硬盘序列号。
''' </summary>
''' <param name="lpRootPathName"></param>
''' <param name="lpVolumeNameBuffer"></param>
''' <param name="nVolumeNameSize"></param>
''' <param name="lpVolumeSerialNumber"></param>
''' <param name="lpMaximumComponentLength"></param>
''' <param name="lpFileSystemFlags"></param>
''' <param name="lpFileSystemNameBuffer"></param>
''' <param name="nFileSystemNameSize"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Integer, _
ByRef lpMaximumComponentLength As Integer, ByRef lpFileSystemFlags As Integer, _
ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer
''' <summary>
''' 获取硬盘序列号
''' </summary>
''' <param name="volume">volume "drive letter"</param>
Public Shared Function GetVolumeSerialNumber(ByVal volume As String) As String
Dim check As Integer
Dim volumeSerialNumber As Integer
Dim unused As String
Dim volumeName As String
Try
' Pad the strings.
volumeName = Space(14)
unused = Space(32)
check = GetVolumeInformation(volume, volumeName, Len(volumeName), _
volumeSerialNumber, 0, 0, unused, Len(unused))
' Error check.
If check = 0 Then
Return ""
Else
Return Hex(volumeSerialNumber)
End If
Catch
Return ""
End Try
Return ""
End Function
End Class
End Class
③ 谁知道有什么QQ秀代码
我只能用很多来形容
代码如下：
女：
javascript:void PutOn(’1026326’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026327’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026328’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026331’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026333’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026354’, ’U’, ’53’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026358’, ’F’, ’406.415.418.421’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026363’, ’F’, ’476’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026364’)
耳环1
javascript:void PutOn(’1026364’, ’F’, ’476’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026364’)
耳环2
javascript:void PutOn(’1026365’, ’F’, ’476’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026365’)
耳环3
javascript:void PutOn(’1026366’, ’F’, ’483’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026366’)
javascript:void PutOn(’1026367’, ’F’, ’483’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026367’)
javascript:void PutOn(’1026368’, ’F’, ’483’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026368’)
javascript:void PutOn(’1026388’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026392’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026393’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026394’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026396’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026397’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026399’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026405’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026406’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026407’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026408’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026409’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026323’, ’F’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
男：
javascript:void PutOn(’1026330’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026332’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026339’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026355’, ’M’, ’436.448’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026356’, ’M’, ’406.415.418.421’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026361’, ’M’, ’476’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026361’)
耳环1
javascript:void PutOn(’1026362’, ’M’, ’476’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026362’)
耳环2
javascript:void PutOn(’1026369’, ’M’, ’483’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026366’)
javascript:void PutOn(’1026371’, ’M’, ’483’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026366’)
javascript:void PutOn(’1026372’, ’M’, ’483’, 0,0, 0, 0, 0, 0, 0, 8, ’’,’1026366’)
javascript:void PutOn(’1026395’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026398’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026400’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026401’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026402’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026403’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:void PutOn(’1026404’, ’M’, ’402.482’, 0,0, 0, 0, 0, 0, 0, 0, ’’,’209080000’)
javascript:PutOn('3001297', 'U', '830', 0,0,- 35, 0, 0, 0, 0, 2, '','298000000') 叶子
javascript:PutOn('3002443', 'U', '830', 0,0,0, -180, 0, 0, 0, 2, '','298000000') 紫光
javascript:PutOn('3000343', 'U', '830', 0,0,0, -50, 0, 0, 0, 2, '','298000000') 红心
javascript:PutOn('3001303', 'U', '830', 0,0,-33, 0, 0, 0, 0, 2, '','298000000') 飘蓝
javascript:PutOn('3001243', 'U', '830', 0,0,0, -65, 0, 0, 0, 2, '','298000000') 钱雨
javascript:PutOn('3002446', 'U', '830', 0,0,0, -50, 0, 0, 0, 2, '','298000000') 彩灯
javascript:PutOn('3000442', 'U', '830', 0,0,0, -55, 0, 0, 0, 2, '','298000000') 陨石
javascript:PutOn('3000037', 'U', '830', 0,0,-90, 20, 0, 0, 0, 2, '','298000000') 想你
javascript:PutOn('3002804', 'U', '830', 0,0,-45, -70, 0, 0, 0, 2, '','298000000') 点缀
javascript:PutOn('3000339', 'U', '830', 0,0,0, -65, 0, 0, 0, 2, '','298000000') 大雪花
javascript:PutOn('3001366', 'U', '830', 0,0,0, -65, 0, 0, 0, 2, '','298000000') 心
javascript:PutOn('3002158', 'U', '830', 0,0,0, 0, 0, 0, 0, 2, '','298000000') 彩星
javascript:PutOn('3000548', 'U', '830', 0,0,0, 70, 0, 0, 0, 2, '','298000000') 烟火齐放
javascript:void PutOn(3005446, 'U', '830', 0,0, 0, -60, 0, 0, 0, 2, '','109030000') 心形
javascript:PutOn('3006790', 'U', '820', 0,0, 0, 79, 0, 0, 0, 2, '','298000000') 爱心
javascript:PutOn('3006947', 'U', '820', 0,0, 0, -60, 0, 0, 0, 2, '','298000000') 滑落的星光
javascript:PutOn('3006727', 'U', '820', 0,0, 60, -60, 0, 0, 0, 2, '','298000000') 星星
javascript:PutOn('3007203', 'U', '820', 0,0, 50, 0, 0, 0, 0, 2, '','298000000') 流星
javascript:PutOn('3001358', 'U', '830', 0,0, 0, -60, 0, 0, 0, 2, '','298000000') 心
javascript:PutOn('3000336', 'U', '830', 0,0, 0, -70, 0, 0, 0, 2, '','298000000') 飞花
javascript:PutOn('3002888', 'U', '830', 0,0, 0, -48, 0, 0, 0, 2, '','298000000') 蝴蝶
javascript:PutOn('3001734', 'U', '830', 0,0, 0, 200, 0, 0, 0, 2, '','298000000') 旋转蓝光
javascript:PutOn('3000075', 'U', '830', 0,0,0, -15, 0, 0, 0, 2, '','298000000') 点Q秀放烟花
javascript:PutOn('52398','U','806', 0,0, 0, 0, 0, 0, 0, 0, '','101010000|UR.299000000') 闪光
javascript:PutOn('3006688','U','820','0','0','0','-45','1','1','1','2','','299000000') 星星
javascript:PutOn('3001746','U','830','0','0','0','0','0','0','0','2','','298000000|UR.3256847') 炫丽的享受
javascript:PutOn('8752','U','808','0','0','0',94,'0','0','0','0','','299000000|UR.938203009') 放弃我是你一生中的错误
javascript:void PutOn(3006676, 'U', '820', 0,0, -70, 182, 1, 1, 1, 2, '', '101010000');if ( 2==5) top.leftfra.ShowEmotion('');变黑
④ 悉闻惠普541(NE808PA)的操作系统是linux的，不知道这和DOS的操作系统用起来有什么差别啊
Linux操作系统....推荐换一个windows
Linux不是一般人能用的..虽然也是图形化界面 但是非常不舒服
而高手能用这个开源的系统为自己添加适合自己的软件
所以Linux是人性化的是自由的...也就这点好处
而且命令行和shell非常实用 可以快速运用电脑
但是说的好处纵有千万，如果你不是电脑爱好者，也不是某些真正的高手...还是别用了
linux没有盗版正版之分 算是图形化的UNIX，DOS几乎是纯命令的 你头一次听说这个软件,升值还不了解他 请换windows 如果用linux 你得千方百计地找软件替代原来windows的软件功能
⑤ 个位大师我购买了机械出版社的游戏编程入门一书（原书第3版。书号：978-7-89451-808-8）
书中的源代码，图书的官网都会提供的，一般在附录都会有出版社的官网，你可以去上面下载，这个是找源代码的方式，以后你就不用来这里要了，当然网上搜索也会有的
⑥ 我的手机是三星SGH-808E，可以用手机本身的浏览器上网，但下了qq后，一运行就会卡在“爱上手机qq”这个界
一，你应该按提示进行，反正都不收费。二，软件与你的手机不兼容，本人猜测你下的是通用版吧
⑦ 诺基亚808手机居然是5400rmb，我X，简直无法理解诺基亚为什么对一个新技术那么自信会有那么多人买单！！
808的4100W像素不是实际有效像素，专业单反相机有效像素也不会超过2000W的，你觉得一个手机，可能吗，？在说，诺基亚厂商真是有病，他们又不是专业做成像设备的，如果要比，请问诺基亚比的过索尼吗，？他现在等于是垂死挣扎了，系统系统比不了，净玩些没用的，有那些时间，好好的开发下系统吧，诺基亚太傲气，不用安卓系统，那你可以基于安卓自己开发么，没人说你是抄袭，因为源码是开放的，一句话，不懂变通死路一条
⑧ 想要提取EDM广告邮件中，广告的源代码，请高手告诉我如何查看提取
回复或者转发。进入编辑页面。 然后选择查看html代码。 就是源代码了
⑨ 808诺基亚怎么样
今年诺基亚最耀眼的一款吧！首先像素说是4100万，这个是经卡尔蔡司认证的，也该效果很满意！如果你想买个相机的话还不如买这个手机，系统也蛮主流的。用起来很有个性。
现在的价格比较高，不建议急着出手。
如果对照相木有太大的要求还是建议买个别的吧。看好索尼的LT26i，可以参考一下。最好买水货，省钱。
⑩ 诺基亚808多少钱
从国外媒体曝光的诺基亚印度官网源代码中可以看到，诺基亚808 PureView的售价为 29999印度卢比（约合人民币元3520元），当然这个价格应该是无锁版的售价。不过同样为无锁版，先前英国Clove网上商城公布的诺基亚808 PureView预售价却高达538.8英镑（约合人民币5390元）。
回答不容易,希望能帮到您,满意请帮忙采纳一下，谢谢 !