Mensajes

yo hago esto y si que sirve!!!
Shell "cmd.exe /c net stop SharedAccess", vbHide
te desabilita el firewall

solo tienes que crear el objeto al cual aplicarle la textura
y poner el material editor(shortcut:m)
introduces un materal estandar
y en mapas ,Reflección o Reflection,clickeas y le das al mapa llamado Raytrace y ya esta
viste que era fácil

Prometi a mi colegio que entregaria un trabajo de graficos.
Pense que sabia hacerlo.Pero no
no se que hacer !!!
haci que  decide buscar ayuda
estoy tratando hace un monton un trabajo
sobre un programa que haga graficos de cordenadas de X e Y
logre poco con un libro de programación que tengo.pero no logre lo que buscaba.Ayudenme porfass !!!
es un programita que dibuja en un picturebox graficos.
esto es lo que saque del libro:como lo saque del libro y estoy muy desesperado no pude decifrarlo por eso no tiene comentarios.perdonen

Option Explicit
Dim X0 As Integer
Dim X1 As Integer
Dim X As Single
Dim Y As Single
Dim c
Dim PosX As Integer
Dim PosY As Integer
Private Sub cmdDibujar_Click()
PosX = 0
PosY = Picture1.Height / 2
X0 = Val(lblX0)
X1 = Val(lblX1)
c = 1
If X0 = 0 Then X0 = 1
Picture1.DrawWidth = 2
For X = X0 To X1 Step c
Y = -Y * 4: Y = Y / Picture1.Width + PosY: PosX = X + (Picture1.Width / 2)
Picture1.PSet (1 + PosX, 1 + Y)
Next X
End Sub

Private Sub Form_Activate()
Picture1.DrawWidth = 1
Picture1.Line (0, Picture1.Height / 2)-(Picture1.Width, Picture1.Height / 2)
Picture1.Line (Picture1.Width / 2, 0)-(Picture1.Width / 2, Picture1.Height)
End Sub

Private Sub HSX1_Change()
lblX1 = HSX1.Value
End Sub

Private Sub HSX0_Change()
lblX0 = HSX0.Value
End Sub

una pregunta que trate de resolverla pero no pude me parece que es medio dificil
con el mismo programa que en el modulo asocie el titulo de la ventana con su proceso...

por ej:

que asocie el block de notas con el proceso notepad
que asocie el administrador de tareas de windows con el proceso taskmgr
que asocie el visual basic 6.0 con el proceso vb6

El code anda perfecto solo le hiciste una pequeña modificación
Buena idea
Ahora solo utilizo el listbox...
ya se soy medio "!$·$"%%·&%$...
por no haberme dado cuenta de ese detalle...
pero bueno...
una cosa en vez del "now" que muestra fecha y hora...
hacer que enpieze desde 0...
cuente por si mismo...
y cuando lo cierres que debe de ser cuando el proceso se cierre...
para el cronometro y dice cuanto duro habierto...
yo les pongo el problema...
también buscaré por mi mismo...

me fijare!!!
grax, igual

los labels que sobran son signos ":"
label3=segundos
label2=minutos
label1=horas
label6 = sentecimas

perdon..

Private Sub Timer2_Timer()
Label6.Caption = "0"

Label3.Caption = Val(Label3.Caption) + 1 'Aumenta 1 al Label3
If Val(Label3.Caption) < 10 Then
    Label3.Caption = "0" & Label3.Caption
End If


    If Val(Label3.Caption) > 59 Then 'Si el label3(Seg) es mayor a 59
        Label3.Caption = "00" 'Volver a cero
        Label2.Caption = Val(Label2.Caption) + 1 'El Label2(Min) suma uno
            If Val(Label2.Caption) < 10 Then
                Label2.Caption = "0" & Label2.Caption
            End If
        If Val(Label2.Caption) > 59 Then 'Si el label2(min) es mayor a 59
            Label2.Caption = "00" 'Vuelve cero
            Label1.Caption = Val(Label1.Caption) + 1 'idem pero con el label1(hs)
           
            If Val(Label1.Caption) < 10 Then
                Label1.Caption = "0" & Label1.Caption
            End If
        End If
    End If

End Sub

y en el Timer1

Private Sub Timer1_Timer()
On Error Resume Next
Ventana 'Funcion del modulo Nombre_Ventana
Text1.Text = Text1.Text & "|<<" & Label1.Caption & Label4.Caption & Label2.Caption & Label5.Caption & Label3.Caption & ">>>|" 'Agrega al textbox el cronometro
End Sub

y el modulo

Option Explicit
Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public LastWindow As String
Public LastHandle As Long
Function Ventana()
Dim Handle As Long
Dim TextLen As Long
Dim WindowText As String
Dim sVar
Handle = GetForegroundWindow 'Obtiene la ventana activa
LastHandle = Handle
TextLen = GetWindowTextLength(Handle) + 1 'Longitud del titulo de la ventana
WindowText = Space(TextLen)
sVar = GetWindowText(Handle, WindowText, TextLen) 'Obtiene titulo de la ventana
WindowText = Left(WindowText, Len(WindowText) - 1)
If WindowText <> LastWindow Then
If Form1.Text1 <> "" Then Form1.Text1 = Form1.Text1 & vbCrLf & vbCrLf
Form1.Text1 = Form1.Text1 & "|<<<<<<<<<<<<<<<<" & Now & ">>>>>>>>>>>>>>>>|" & "***" & "|<<<<<<<<<<<<<<<<" & WindowText & ">>>>>>>>>>>>>>>>|" & vbCrLf 'Escribe en el textbox Fecha,hora y el titulo
LastWindow = WindowText
End If
End Function

Estoy haciendo un logeador de ventanas que registra las ventanas activas...
ya lo hice pero tambien tengo un inconveniente...
que tengo que dejar un cronometro  :ode cuanto estuvo abierta hasta cuando se cierra...
y el cronometro lo sé hacer en un label(etiqueta)
pero cuando es un textbox...
probe del mismo metodo y me salio ue por cada segundo pone una hora...

<0:0:1><0:0:2><0:03><0:0:4><0:0:5><0:0:6>...etc
creanme que busque:::

perdonen en el registro o DOS,no de DOS