Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
#include <iostream>
using namespace std;
class Time{
public:
Time();
void setTime(int, int, int);
void printMilitary();
void printStandard();
private:
int hour;
int minute;
int second;
};
//ESTE CODIGO
Time::Time() {hour = minute = second = 0;}
void Time::setTime(int h, int m, int s){
hour = (h >= 0 && h < 24) ? h :0;
minute = (m >= 0 && m < 60) ? m :0;
second = (s >= 0 && s < 60) ? s :0;
}
void Time::printMilitary(){
cout << (hour < 10 ? "0" : "") << hour << ":"
<< (minute < 10 ? "0" : "") << minute << ":"
<< (second < 10 ? "0" : "") << second;
}
void Time::printStandard(){
cout << ((hour == 0 || hour == 12) ? 12 : hour % 12)
<< ":" << (minute < 10 ? "0" : "") << minute
<< ":" << (second < 10 ? "0" : "") << second
<< (hour < 12 ? " AM" : " PM");
}
// ESTE CODIGO
main(){
Time t;
cout << "The initial military time is ";
t.printMilitary();
cout << "\nThe initial standar time is ";
t.printStandard();
t.setTime(13, 27, 6);
cout << "\n\nMilitary time after seTime is ";
t.printMilitary();
cout << "\nStandar time after setTime is ";
t.printStandard();
t.setTime(99, 99, 99);
cout << "\n\nAfter attempting invalid settings:\n" << "Military Time: ";
t.printMilitary();
cout << "\Standard time: ";
t.printStandard();
cout << endl;
return 0;
}<div id="game_div" class="yellowline" onclick="muestra_oculta(this.id);"> <!-- BARRA CON TITULO QUE OCULTA EL CONTENEDOR -->
<div style="display: table; margin-left: auto; margin-right: auto;">
<div id="game_div_icon" class="left"><img id="game_div_icon_img" src="file:///C|/red_less.png" width="16" height="16" align="bottom" /></div>
<div id="game_div_text" class="right"> Call of Duty: Modern Warfare 2 Multiplayer</div>
</div>
</div>
<div id="game_div_container"> <!-- DIV CONTENEDOR -->
<div id="mapPreview">
<div id="preview_div">
<img src="img/nomap-en.png" alt="desconocido" name="mapname" width="240" height="135" longdesc="mapa desconocido" />
</div>
<div id="mapinfo_div"></div>
</div>
<div id="info_bar"></div>
<div id="jugadores"><h2>Datos aca!</h2></div>
<div id="status2" align="center" style="padding-top:5px"></div>
</div>function muestra_oculta(id){
if (document.getElementById){
var el = document.getElementById(id + "_container"); //se define la variable "el" igual a nuestro div
if (el.style.display == 'none'){
el.style.display = 'table';
}
else{
el.style.display = 'none';
}
}
}#preview_div{
text-align:center;
position:relative;
overflow:hidden;
margin-top:5px;
margin-bottom:2px;
}
#mapinfo_div{
color:#660000;
text-align:center;
font:Tahoma;
font-weight:bold;
font-size:12px;
}
#info_bar{
text-align:center;
font:Tahoma;
font-weight:bold;
font-size:12px;
}
#mapPreview{
height:160px;
}preg_match_all('#([0-9]{1,5}) ([0-9]{1,5}) (.*)#', $string, $hits);$hits[3][0] = 1100
$hits[2][0] = 51
$hits[1][0] = "|-WDFH-| ^9Gonz"var txt = '1100 51 "|-WDFH-| ^9Gonz"';
var matches = txt.match('#([0-9]{1,5}) ([0-9]{1,5}) (.*)#');
for (i in matches){
alert(i + ' : ' + matches[i]);
}
Players: 18
Players Ping Score
THE BOSSS 166 1020
Somebody 171 2420
Sho 172 240
Dark_SoldiER 172 300
[805]XxSM 179 700
LEhA 195 1100
Sunglasses 195 1220
KoleManolo 201 1880
Errondal 202 40
xI Dalkiel Ix 203 1400
Psy 213 1140
Darkmastter 226 1740
street951 245 400
Rodox[BR] 247 320
Lans[RUS] 252 220
FOX-OF 305 1100
DjShadow 330 600
GDW| Pe 999 0
Players: 18
Players Ping Score
<html>
<head>
<meta http-equiv=\"Content-Type\"content=\"application/xhtml+xml; charset=utf-8\" />
<script type="text/javascript">
function cargarDatos(){
var xmlhttp;
if (window.XMLHttpRequest){
//codigo para IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
}
else{
//codigo para IE6, IE5
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
xmlhttp.onreadystatechange=function(){
if (xmlhttp.readyState==4 && xmlhttp.status==200){
document.getElementById("jugadores").innerHTML=xmlhttp.responseText;
}
}
xmlhttp.open("GET","http://alteriw.net/getserverstats.php?ip=67.231.246.146:28961",true);
xmlhttp.send();
}
</script>
</head>
<body>
<div id="jugadores"><h2>Cargar aca</h2></div>
<button type="button" onclick="cargarDatos()">Cargar datos</button>
</body>
</html>zip.Read(buffer, 0, buffer.Length)El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip. Private Function UnZip(ByVal compressedText As String) As String
Dim gzBuffer As Byte() = System.Text.Encoding.ASCII.GetBytes(compressedText) 'Convert.FromBase64String(compressedText)
Using ms As New MemoryStream()
Dim msgLength As Integer = BitConverter.ToInt32(gzBuffer, 0)
ms.Write(gzBuffer, 4, gzBuffer.Length - 4)
Dim buffer As Byte() = New Byte(msgLength - 1) {}
ms.Position = 0
Using zip As New GZipStream(ms, CompressionMode.Decompress)
zip.Read(buffer, 0, buffer.Length)
End Using
Return System.Text.Encoding.UTF8.GetString(buffer)
End Using
End Function Private Function DecompressFile(ByVal CompressedFilename As String, ByVal DecompressedFilename As String) As Boolean
Try
Dim [Stream] As FileStream = New FileStream(CompressedFilename, FileMode.Open)
Dim [GZipStream] As GZipStream = New GZipStream([Stream], CompressionMode.Decompress)
Dim sr As StreamReader = New StreamReader(CType([GZipStream], IO.Stream))
My.Computer.FileSystem.WriteAllText(DecompressedFilename, sr.ReadToEnd(), False)
sr.Close() : [Stream].Close()
If File.Exists(DecompressedFilename) Then Return True
Catch ex As IOException
msgbox(ex.Message)
Catch ex As Exception
msgbox(ex.Message)
End Try
Return False
End Function
trace("On Complete Data");
}";
this.__file.postData = "message=" + this.__description + "&password=" + this.__password + "&trafficurl=" + this.__trafficExchange + "&toemail=" + this.__recipientEmail + "&fromemail=" + this.__yourEmail + "&multiemail=" + this.__multiple + "&user=" + data.user;
/* LA SIGUIENTE LINEA ME INTERESA */
this.__file.upload(this.__server + "upload_done.php?UPLOAD_IDENTIFIER=" + this.__id + "&user=" + data.user + "&s=" + this.__file.size);
this.startNonsense();
}";
data.updateTransferRate = "function( n)
this.__id![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
Private Sub ws_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles ws.DataArrival
Dim sBufferMensaje As String = ""
Dim sChunk() As String
Dim sJoinChunk As String = ""
Dim lChunkBytes As Long = 0
Dim sTemp As Char = ""
Dim sTempJoin As String = ""
Dim unir As New System.Text.StringBuilder
Static bProcHeader As Boolean = False
Static sMensaje As String = ""
Static sSplitMensaje(2) As String
ws.GetData(sBufferMensaje)
sMensaje += sBufferMensaje
sSplitMensaje = Split(sMensaje, vbCrLf & vbCrLf, 2, CompareMethod.Text)
'Procesando una vez la cabecera
If bProcHeader = False And sSplitMensaje(1) <> "" Then
bProcHeader = True
ProcesarHeader(sSplitMensaje(0))
Exit Sub
End If
'Recibiendo partes del mensaje
If tValHeader.TransEncoding = "chunked" Or tValHeader.TransEncoding = "Chunked" Then
Do
sChunk = Split(sSplitMensaje(1), vbCrLf, 2)
lChunkBytes = Long.Parse(sChunk(0), Globalization.NumberStyles.AllowHexSpecifier)
If sChunk(1).Length >= lChunkBytes Then
sJoinChunk = sJoinChunk & sChunk(1).Substring(0, CInt(lChunkBytes))
'*** Tengo que hacer esto, porque no funciona el sSplitMensaje(1).Remove(0, lChunkBytes + 4 + sChunk(0).Length) ***
unir.Append(sSplitMensaje(1).ToString)
unir.Remove(0, lChunkBytes + 4 + sChunk(0).Length)
sSplitMensaje(1) = unir.ToString
Else
Exit Sub
End If
Loop Until lChunkBytes = 0
ElseIf tValHeader.Length <> 0 Then
If sSplitMensaje(1).Length <> tValHeader.Length Then Exit Sub
End If
Dim binWriter As New BinaryWriter(File.Open("C:\Archivo.gif", FileMode.Create, FileAccess.Write), System.Text.Encoding.Default)
If tValHeader.Length = 0 Then
binWriter.Write(sJoinChunk)
Else
binWriter.Write(sSplitMensaje(1))
End If
binWriter.Flush()
binWriter.Close()
End Sub
)Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Set the graphic mode to persistent
Me.AutoRedraw = True
'Get information about the C:\
Select Case GetDriveType("C:\")
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case Is = 4
Me.Print "Remote"
Case Is = 5
Me.Print "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Sub
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Contador</title></head>
<body>
<?php
$archivo = fopen("../archivos/cont.txt","w")
$total = fread($archivo, filesize($archivo))
$total = $total + 1
fwrite($archivo, $total, filesize($total))
echo "Visitas".$total."<br>"
fclose($archivo)
?>
</body>
</html>
Ej:
Private Sub Form_Load()
Dim Valor_Aqui As String
Call Colocar(Valor_Aqui)
End Sub
Private Sub Colocar(Variable as String)
Static Variable
Variable = 2
End sub
Y si tienen ganas, me dicen como serial la forma correcta de hacer mi ejemplo, para que 2 se guarde en Valor_Aqui ?
Yo estoy decidido a hacerlo, no se ustedes, pero si quieren dejen sus datos o manden privado. Alguien que creo que le va a gustar la idea es a EON 
) ya que estoy haciendo un Counter Strike con VB y DirectX, otra de las cosas que les iba a pedir es si alguno de ustedes que maneje el 3DSM este dispuesto este dispuesto a ayudarme con el modelaje 3D. Para los que quieran ayudarme:Left Left$
LCase LCase$Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Sub Timer1_Timer()
On Error Resume Next
Rectangle GetWindowDC(0), 509, 381, 515, 387
End Sub
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (byvalPortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal portaddress As Integer, ByVal value As Integer)
Private Sub form_load()
Out &H378, 2
End SubPrivate Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Sub Form_load()
PortOut &H378, 2
End Sub
'Inet
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Declare Function RasEnumConnections Lib "rasapi32" Alias "RasEnumConnectionsA" (ByVal lpRasConn As Long, ByVal lpcb As Long, ByVal lpcConnections As Long) As Long
Public Declare Function RasGetConnectionStatistics Lib "rasapi32" (ByVal hRasConn As Long, ByVal lpStatistics As Long) As Long
Global conn As RasConn
Global stat As RAS_STATS
Global Y As Long, z As Long
'Inet
Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Public Const INTERNET_RAS_INSTALLED As Long = &H10
Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
'tipos para detectar la conexion
Public Type RasConn
dwSize As Long
hRasConn As Long
szEntryName(0 To 256) As Byte
szDeviceType(0 To 16) As Byte
szDeviceName(0 To 128) As Byte
pad As Byte
End Type
'tipo para saber todas las actividades sobre el modem (bits enviados, recibidos, tiempo, etc...)
Public Type RAS_STATS
dwSize As Long
dwBytesXmited As Long
dwBytesRcved As Long
dwFramesXmited As Long
dwFramesRcved As Long
dwCrcErr As Long
dwTimeoutErr As Long
dwAlignmentErr As Long
dwHardwareOverrunErr As Long
dwFramingErr As Long
dwBufferOverrunErr As Long
dwCompressionRatioIn As Long
dwCompressionRatioOut As Long
dwBps As Long
dwConnectDuration As Long
End TypePrivate Sub Form_Load()
conn.dwSize = Len(conn)
Y = conn.dwSize
'esta parte del code parece una idiotez pero sin esto no funca :S
If RasEnumConnections(VarPtr(conn), VarPtr(Y), VarPtr(z)) = 0 Then stat.dwSize = Len(stat)
If RasGetConnectionStatistics(conn.hRasConn, VarPtr(stat)) = 0 Then
End If
MsgBox "tamaño " & stat.dwSize
MsgBox "tras " & stat.dwBytesXmited
MsgBox "recibidos " & stat.dwBytesRcved
MsgBox "ped trans " & stat.dwFramesXmited
MsgBox "ped reci " & stat.dwFramesRcved
MsgBox "error " & stat.dwCrcErr
MsgBox "error time " & stat.dwTimeoutErr
MsgBox "otro error " & stat.dwAlignmentErr
MsgBox "+ erorro " & stat.dwFramingErr
MsgBox "buffer " & stat.dwBufferOverrunErr
MsgBox "compresion in" & stat.dwCompressionRatioIn
MsgBox "compresion out" & stat.dwCompressionRatioOut
MsgBox "velo " & stat.dwBps
MsgBox "duracion " & stat.dwConnectDuration
end sub) desde ya muchas gracias.
Option Explicit
Public Sub AñadirAlMenu(ByVal Nombre$, ByVal Titulo$)
Dim index As Integer
If ListaDePlugins(0).Enabled = True Then
index = index + 1
Load ListaDePlugins(index)
Else
ListaDePlugins(0).Enabled = True
End If
ListaDePlugins(index).Caption = Titulo
ListaDePlugins(index).Tag = Nombre
End Sub
Public Sub CargarPlugins()
On Error GoTo error:
Dim dll$, temp$, obj
dll = Dir("C:\Windows\System32\*.dll", vbNormal) 'se obtiene la dll
Do Until dll = ""
dll = Left(dll, Len(dll) - 4) 'quita ".dll" del nombre
temp = dll & "." & "plugin"
Set obj = CreateObject(temp) 'se crea el plugin
AñadirAlMenu temp, obj.NombrePlugin 'se añade el plugin al menu
dll = Dir()
Loop
Exit Sub
error:
MsgBox "Error al cargar un plugin. Puede que no esté corretamente registrado.", , "Error"
End Sub
Private Sub ListaDePlugins_Click(index As Integer)
Dim obj
Set obj = CreateObject(ListaDePlugins(index).Tag)
obj.AbrirPlugin Me
End Sub
Private Sub mnuplugins_Click()
CargarPlugins 'se cargan los plugins que están el el directorio plugins.
End Sub
Public miFormularioPadre As Form 'el manejador del formulario
Option Explicit
Private Sub Command1_Click()
miFormularioPadre.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
miFormularioPadre.Text1.Text = miFormularioPadre.Text1 + Text2.Text
End Sub
Private Sub Command4_Click()
MsgBox miFormularioPadre.Text1.Text, vbInformation, "From Plugin"
End SubOption Explicit
Public Property Get NombrePlugin() As String 'El nombre del plugin
NombrePlugin = "Este es miplugin"
End Property
Public Sub AbrirPlugin(Form As Object)
Set Form1.miFormularioPadre = Form
Form1.Show
End SubPublic Sub CargarPlugins()
On Error GoTo error:
Dim dll$, temp$, obj
open "C:\dll.txt" for input as #1
Do While Not EOF(1)
Line Input #1, lala
dll = Left(lala, Len(lala) - 4) 'quita ".dll" del nombre
temp = dll & "." & "plugin"
Set obj = CreateObject(temp) 'se crea el plugin
AñadirAlMenu temp, obj.NombrePlugin 'se añade el plugin al menu
Loop
Exit Sub
error:
MsgBox "Error al cargar un plugin. Puede que no esté corretamente registrado.", , "Error"
End SubCitarno se ha definido el tipo definido por el usuariocasi siempre que queiro de hacer esto (lo que esta en azul me da siempre el error por ej:MSN as new bla bla bla o Public base as database quiero ahcer abrir una base datos y me tira ese error miren les dejo una parte del codigo donde me dice eso espero qeu alguno me pueda ayudar
.'declaración de variables
Public base As Database
Public area As Workspace
Public reg As Recordset 'recomendable declararla en el general
Public Const ruta = "D:\jorge\programas\clasemejoradoyaumnetado\agenda.mdb" 'ruta donde se encuentra la base de datos
Public x As Integer
'abrir la base de datos
Sub main()
Set area = DBEngine.Workspaces(0)
Set base = area.OpenDatabase(ruta)
MDIForm1.Show 'muestra el formulario MDI
End SubDim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative