㈠ 怎麼製作最漂亮的QQ寵物四格漫畫
框子不難做,就是怎麼把四個圖合在一起而已,比如我的第一系列,其實就是單純的文字配一個頭像而已,打字應該會吧?框子可以來說是永久性的,
設計一個就可以用一個系列,有時候簡單整潔一點更好,太花哨了反而會奪去內容的光芒!
㈡ QQ寵物怎麼弄
點擊QQ主菜單最下邊一行寵物頭像。
如果領過寵物屏幕上會出現QQ寵物。QQ豬豬。QQ熊熊讓你選。點QQ寵物就可以了。
如果沒領過QQ寵物。會顯示讓你到官網領。到官網上會出現一公一母兩個寵物蛋。根據你的喜好砸相應的寵物蛋就好。如果你的人品夠好。一次就可以砸出來。如果沒咋出來就明天再來砸。。。
再者可以直接找個熟人送你個。
㈢ QQ寵物怎麼製作
bushizuo
㈣ 如何製作QQ寵物
登錄電腦的QQ,然後跟著系統的指引,就可以獲得一個寵物了,或者是在電腦進入QQ寵物,登錄QQ,也能領取一隻寵物
㈤ 怎麼製作QQ寵物游戲視頻!
去下載個視頻器,然後就可以上傳==,製作的話網路有相關簡單點的教學視頻的~
㈥ 用VB製作類似QQ寵物的程序
我也在做和你一樣的仿qq寵物,滿足你的3個要求
--Form1.frm
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash9d.ocx"
Begin VB.Form Form1
BackColor = &H00FF00FF&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 2595
ClientLeft = 0
ClientTop = 0
ClientWidth = 2085
LinkTopic = "Form1"
ScaleHeight = 2595
ScaleWidth = 2085
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口預設
Begin VB.Timer Timer1
Interval = 5000
Left = 1320
Top = 2040
End
Begin VB.CommandButton Command1
Caption = "X"
Height = 375
Left = 120
TabIndex = 1
Top = 2040
Width = 375
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash pet
DragMode = 1 'Automatic
Height = 1815
Left = 0
TabIndex = 0
Top = 0
Width = 1815
_cx = 3201
_cy = 3201
FlashVars = ""
Movie = "pet"
Src = "pet"
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = "FF00FF"
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
Profile = 0 'False
ProfileAddress = ""
ProfilePort = 0
AllowNetworking = "all"
AllowFullScreen = "false"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim p As String
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
maketrans Me.hwnd, &HFF00FF
p = App.Path + "\img\"
updswf "1001"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
End Sub
Private Sub pet_DragOver(Source As Control, x As Single, Y As Single, State As Integer)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
End Sub
Sub updswf(x As String)
pet.Movie = p + x + ".swf"
pet.Loop = False
End Sub
Private Sub Timer1_Timer()
Dim x As Long
Randomize Timer
x = Int(Rnd * 3)
If x >= 1 Then
updswf "200" + Trim(Str(x))
End If
End Sub
--Mole1.bas
Attribute VB_Name = "Mole1"
Option Explicit
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Public Function maketrans(hwnd As Long, color As Long) As Long
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, color, 255, LWA_COLORKEY
End Function
--工程1.vbp
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation
Object={D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0; Flash9d.ocx
Mole=Mole1; Mole1.bas
IconForm="Form1"
Startup="Form1"
ExeName32="工程1.exe"
Command32=""
Name="工程1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="SAMSUNG"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1
註:flash文件放在img目錄下
㈦ QQ寵物的製作
不知道誒
你好有前途的啊
這么發奮
㈧ 怎樣在電腦上製作一個可愛的電子寵物就像QQ企鵝一樣
是的!要是這么簡單的話~TX的寵物就不會這么受歡迎了啊~
而且你在網上找的話~我想沒有把~
我試了試~
㈨ 我想做一個類似於qq寵物的小軟體 應該怎麼實現阿用什麼技術呢/
用高級編程語言便可以實現,例如VB,VC++等軟體
通用調用API函數來實現,主要調用的API函數有:
使窗體透明
GetPixel
SetWindowRgn
CreateRectRgn
CombineRgn
在狀態欄顯示圖標
Shell_NotifyIcon
像QQ這種寵物,把程序透明化,把寵物的動作製成了FLASH文檔,然後再由程序調用.
㈩ qq寵物的圖是怎麼懸浮在桌面上的,請大蝦告訴我製作方法
qq寵物的圖是怎麼懸浮在桌面上的,請大蝦告訴我製作方法
這個問題我知道
推薦您使用「賽思QQ陌生人推廣小助手 」
不用加好友 直接發消息
日引1萬獨立IP 絕對沒有問題