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元）。
回答不容易,希望能幫到您,滿意請幫忙採納一下，謝謝 !