| |
 Mostrar Temas
|
|
Páginas: 1 2 [3]
|
|
22
|
Programación / Programación Visual Basic / [Solucionado]Duda con decimales
|
en: 13 Julio 2011, 01:11 am
|
Bueno me gustaria que sume decimales pero hay un problema si hago por ejemplo 5,1+5,3 = 104 y eso queria solucionar aqui va el code: Option Explicit
Dim StrOper As String
Dim IntVal As Double
Dim IntVal2 As Double
Private Sub cmdCien_Click()
If txtResultado.Text <> "" Then
StrOper = "%"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdDel_Click(Index As Integer)
txtResultado.Text = ""
End Sub
Private Sub cmdDiv_Click(Index As Integer)
If txtResultado.Text <> "" Then
StrOper = "/"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdDot_Click()
txtResultado.Text = txtResultado.Text & "."
End Sub
Private Sub cmdIgual_Click(Index As Integer)
IntVal2 = txtResultado.Text
If StrOper = "+" Then
txtResultado.Text = Val(IntVal) + Val(IntVal2)
End If
If StrOper = "-" Then
txtResultado.Text = Val(IntVal) - Val(IntVal2)
End If
If StrOper = "*" Then
txtResultado.Text = Val(IntVal) * Val(IntVal2)
End If
If StrOper = "/" Then
txtResultado.Text = Val(IntVal) / Val(IntVal2)
End If
If StrOper = "%" Then
txtResultado.Text = Val(IntVal) / 100 * Val(IntVal2)
End If
End Sub
Private Sub cmdMas_Click(Index As Integer)
If txtResultado.Text <> "" Then
StrOper = "+"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdMenos_Click(Index As Integer)
If txtResultado.Text <> "" Then
StrOper = "-"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdMul_Click(Index As Integer)
If txtResultado.Text <> "" Then
StrOper = "*"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdNum_Click(Index As Integer)
txtResultado.Text = txtResultado.Text & Index
End Sub
Private Sub cmdSqrt_Click()
If txtResultado.Text <> "" Then
StrOper = "Sqrt"
IntVal = txtResultado.Text
txtResultado.Text = ""
If IntVal < 0 Then
MsgBox "Numero negativo!"
Else
txtResultado.Text = Sqr(Val(IntVal))
End If
End If
End Sub
Private Sub Salir_Click()
Beep
End
End Sub
|
|
|
|
|
24
|
Foros Generales / Noticias / LulzSec anuncia su disolución
|
en: 26 Junio 2011, 04:06 am
|
Hace cincuenta días el grupo LulzSec empezó a generar caos y desorden en internet, bajando algunos sitios importantes, incluyendo la CIA, exponiendo contraseñas e inclusive exponer documentos del sistema penal de Arizona (Estados Unidos). Hoy anuncian su disolución. Entre otras cosas, en su comunicado final, explican: " Por los últimos 50 días hemos expuesto corporaciones, gobiernos en ocasiones a la población en general y posiblemente todo lo que hay en medio, solo porque podíamos. Todo para entretener desinterasadamente a otros, vanidad, fama, reconocimiento; todas estas cosas son eclipsadas por nuestro deseo de lo que a todos nos gusta. El crudo, ininterrumpido y caótica emoción de entretenimiento y anarquía. Es lo que a todos anhelamos, incluso políticos de mediana edad fracasados sin vida o sin emoción aparente. No son fracasados. No han sido sorprendidos. Pueden conseguir lo que quieren y se lo merecen: creer en ustedes mismos.
Detrás de la máscara, debajo de la locura y caos, creemos realmente en el movimiento AntiSec. Creemos tan fuerte en el que lo trajimos de regreso, para sorpresa de aquellos que querían más lulz anárquicos. Nosotros esperamos, deseamos inclusive rogamos que el movimiento en si mismo se transforme en una revolución que continúe sin nosotros. El apoyo que hemos obtenido en un periodo de tiempo tan corto es abrumador y una lección de humildad. Por favor no paren, Juntos, unidos podemos pisar a nuestros opresores comunes y dotarnos del poder de libertad que merecemos." LulzSec ha publicado un último torrent, 50 days of Lulz. El resto de sus comunicados. ¿Los motivos por los cuales se separan? No es claro, pero se cree que parte del motivo fue el arresto en Reino Unido de uno de sus integrantes. La lista de archivos del torrent final: * 50 Days of Lulz.txt * booty/AOL internal data.txt * booty/AT&T internal data.rar * booty/Battlefield Heroes Beta (550k users).csv * booty/FBI being silly.txt * booty/Hackforums.net (200k users).sql * booty/Nato-bookshop.org (12k users).csv * booty/Office networks of corporations.txt * booty/Private Investigator Emails.txt * booty/Random gaming forums (50k users).txt * booty/Silly routers.txt * booty/navy.mil owned.png Torrent:http://thepiratebay.org/torrent/6495523/50_Days_of_LulzFuente:http://alt1040.com/2011/06/lulzsec-anuncia-su-disolucion |
|
|
|
|
25
|
Programación / Programación Visual Basic / Duda con comando "open"
|
en: 22 Junio 2011, 22:02 pm
|
Me gustaria saber como hacer pera que el comando OPEN leea una ruta que esta escrita en un TextBox Open App.Path & "\Archivo.txt" For Output As #1 Yo lo unico que quiero es saber como hacer que leea una variable o el mismo TextBox Gracias, |
|
|
|
|
27
|
Foros Generales / Noticias / LulzSec y Anonymous lanzan “Operation Anti-Security”
|
en: 20 Junio 2011, 13:51 pm
|
LulzSec y Anonymous lanzan “Operation Anti-Security”  Tras las noticias que nos llegaban la semana pasada sobre un posible ataque de Lulz a 4chan luego desmentido, uno de los espacios donde el colectivo Anonymous se mostraba más activo, parecía que ambos grupos se habían declarado la guerra. Nada más lejos de la realidad. Desde hace una horas se ha anunciado la unión de ambos con la denominada Operación Anti-security, una “cruzada” contra cualquier gobierno, agencia o corporación del mundo que trate de coartar “la libertad y el progreso” con todo tipo de ataques y filtraciones en la red. No sólo eso, anuncian a WikiLeaks como medio de soporte. Como se anuncia en la carta publicada desde hace unas horas, el movimiento no sólo se trata de la unión de estos colectivos que han sido el azote de las grandes corporaciones en los últimos meses, es un mensaje con el que se espera que se unan todos los pueblos del mundo, que se difunda el mensaje y que no se quede en ataques DDoS, sino en la fuga de todo tipo de documentos secretos al estilo de WikiLeaks (en la misma carta finalizan nombrando a WikiLeaks como uno de los “grandes soportes” de la operación). No hay nombres concretos en la operación, aunque muy posiblemente, la mayoría de las “grandes” podrían pensar desde hoy que están bajo una nueva amenaza aún más peligrosa con esta nueva unión entre ambos colectivos. Os dejo con la transcripción de la carta anunciada a través del Twitter de Lulzsec: " Somos conscientes de que el gobierno y los terroristas de la “seguridad” en todo el mundo siguen dominando y manteniendo el control de nuestra Internet. Un botín lleno de corruptos que piensan que esto es aceptable a condición de esclavizarnos a todos. Lulzsec y su flota de combate declara la guerra inmediata y constante al robo de estos “moderadores” de la libertad de este 2011.
Bienvenidos a la operación contra la Seguridad (#AntiSec). Animamos a cualquier barco, grande o pequeño, para abrir fuego contra cualquier gobierno o agencia que se cruza en su camino. Estamos totalmente de acuerdo con la proclama de la palabra “AntiSec” en cualquier sitio web de cualquier gobierno. Les animamos a difundir la palabra de AntiSec a lo largo y ancho, ya que será recordada. Para aumentar los esfuerzos, ahora estamos haciendo equipo con el colectivo Anonymous y todos sus barcos de guerra afiliados.
Ya sea porque estas navegando con nosotros o contra nosotros, ya sea porque guardes rencor del pasado o un ardiente deseo de hundir el barco en solitario, les invitamos a unirse a la rebelión. Juntos podemos defendernos de manera que nuestra privacidad no esté invadida por glotones hambrientos de ganancias. Su sombrero puede ser blanco, gris o negro, la piel y la raza no son importantes. Si usted es consciente de la corrupción, únase a AntiSec.
La prioridad máxima es robar y lanzar cualquier fuga de información clasificada del gobierno, incluyendo carretes de correos electrónicos y documentación. Nuestros objetivos principales son los bancos y demás establecimientos de alto rango. Si ellos tratan de censurar nuestro progreso, nosotros vamos a borrar el censor con sangre de lagarto.
Es ahora o nunca. Súbete a bordo, les estamos esperando …
La historia comienza hoy.
Lulz de Seguridad," Fuente:http://alt1040.com/2011/06/lulzsec-anonymous-operation-anti-security
|
|
|
|
|
28
|
Foros Generales / Noticias / LulzSec desmiente guerra contra Anonymous
|
en: 19 Junio 2011, 14:41 pm
|
LulzSec desmiente guerra contra Anonymous" Para confirmar, no estamos tras Anonymous. Para empezar, 4chan no es Anonymous; y ciertamente, /b/ no es la totalidad de 4chan (…) Decir que estamos atacando Anonymous sólo porque nos burlamos de /b/ es como decir que iremos a la guerra contra Estados Unidos sólo porque pisamos una hamburguesa con queso." Con este mensaje, LulzSec ha confirmado que no existe tal confrontación con** Anonymous**. Desde ayer han circulado teorías de que ambos grupos estaban midiendo fuerzas, y que el ataque contra 4chan constituía una declaración de guerra. Sin embargo, esta visión parte de varios dogmas, como considerar que las dos agrupaciones son mutuamente excluyentes o que persiguen objetivos diferentes. Una de las pocas diferencias que quedan claras entre LulzSec y Anonymous es que el primero se conforma por una organización de élite, mucho más reducida; mientras que el segundo es mucho más abierto y “recluta” a cualquier persona que desee integrarse. Sobre sus blancos, ambos la toman por igual contra empresas u organismos políticos, aunque existen ciertas diferencias morales sobre la privacidad de terceros. Por ejemplo, Anonymous se disculpó públicamente tras los ataques a la PlayStation Network, debido a que consideraba que dañaba más a los usuarios que a la empresa. En tanto, LulzSec se ganó la animadversión de cierto sector de la opinión pública tras revelar 62 mil cuentas elegidas al azar de Twitter, Facebook, World of Warcraft y Gmail, instando a sus fanáticos a intervenirlas. Sí, el ataque de LulzSec a /b/ podía leerse como una provocación, pero de ninguna manera constituía una acción directamente ofensiva contra Anonymous —como podría ser, por ejemplo, una intrusión a sus servidores—. Por su parte, la cuenta de Twitter de Anonymous también aclaró que no están en campaña contra el otro grupo. Así que lo mejor será dejar de ver guerras civiles donde no las hay. Fuente: http://alt1040.com/2011/06/lulzsec-desmiente-guerra-contra-anonymous
|
|
|
|
|
29
|
Foros Generales / Noticias / Turquía anuncia la detención de 32 miembros de Anonymous
|
en: 13 Junio 2011, 12:57 pm
|
Tras los ataques sufridos el viernes, dos días antes de las elecciones en el país, la policía del país anunció hace unas horas la detención de hasta 32 miembros de Anonymous, todos vinculados al grupo de activistas que tenían como objetivo el ataque a las webs del gobierno como protestas contra los planes de Turquía para introducir los filtros en Internet.
La agencia de noticias del Anatolia ha difundido la carta enviada por la policía donde se informaba de la detención de los activistas en redadas en una docena de ciudades del país. Estas detenciones se producen tras el ataque de hace dos días a la web del organismo de control de las telecomunicaciones. La agencia ha informado que en estos momentos se encuentran detenidos y se les está interrogando.
La noticia se produce después del arresto por parte de la policía española de tres miembros de la “cúpula” y el posterior ataque DDoS de Anonymous a la web de la policía como medida de protesta. Tras las detenciones en España, Anonymous ha querido recalcar estos días que todas las detenciones y los esfuerzos por pararles no tienen ningún tipo de impacto sobre la organización, por lo que muy probablemente estas últimas detenciones en el país tengan una respuesta inmediata del grupo de activistas: " Sin importar cuantas veces se les dice, ustedes se niegan a entender. No hay líderes en Anonymous. Anonymous no se basa en distinciones personales. No se han detenidos miembros importantes, no tenemos miembros y no somos un grupo de ningún tipo. Los ataques DDoS son un acto de protesta pacífica en Internet, estos ataques no son diferentes a estar sentado pacíficamente delante de una tienda negando la entrada como las protestas tradicionales." fuente: http://alt1040.com/2011/06/turquia-detencion-miembros-anonymous
|
|
|
|
|
|
| |
|
