㈠ 怎么制作最漂亮的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 绝对没有问题