Gå til innhold

Alexen

Medlemmer
  • Innlegg

    258
  • Ble med

  • Besøkte siden sist

Innlegg skrevet av Alexen

  1. jøss.. er "dash" et mye brukt ord?

     

    fikk pcen til å hjelpe meg litt:

     

    Du skriver 850 bokstaver per minutt

    Du har 195 riktige ord og

    du har 0 feile ord.

     

    Du fikk 654 poeng, så du havnet på en plass 59 av 173839 totalt.

     

    er endel andre juksemakere her ja.. INGEN skriver så fort :p

     

    er maks 850 bokstaver man kan skrive inn

  2. Heisann!

     

    kort sagt: jeg suger når det kommer til design. Jeg er mer den typen som skriver koden og lurer på hvorfor brukerne ikkje skjønte hvordan noe så opplagt skulle brukes :p

     

    Det blir jo stadig viktigere å kunne lage brukervennlige grensesnitt. Spesielt i denne nye wpfverdenen med blend.

     

    Noen som har noen tips til hvordan man kan forbedre sin egen evne til å lage gode brukeropplevelser? bøker?

     

    Takker for innspill.

  3. et par ting her

     

     

    1. Hvilket programmeringsspråk bruker du ? Visual Basic.NET (2005/2008)

    2. Det er GetelemenTByid.. og ikke getelementSbyid.

    3. Getelementbyid returnerer ETT htmlelement og det har ingen .item metode

    4. Getelementbyid ligger ikke i .all gruppa.. det er webbrowser.document.getelementbyid("bleh")

     

     

    Prøv heller å forklare oss hva det er du prøver å gjøre så blir det mye lettere :)

  4. Hei!

     

    Har nettopp bygget en ny pc.

     

    HK: MSI K9AG Neo2-Digital

    RAM: 4GB OCZ

    CPU: Amd Athlon x2 6000+

     

    Kjører vista-32 på den. Problemet er at etter at jeg har startet windows så går det 3-10 minutter før jeg får beskjed om at desktop windows manager har sluttet å fungere. Windows går da til basic theme og alt ser ut til å fungere. Hvis jeg prøver å starte et spill så fngerer det i noen sekunder før lyd/bilde stopper opp i noen sekunder og det hele gjentas.

     

    Tenkte først at det var det innebygde skjermkortet som var problemet og kjøpte derfor et Ati radeon 4850, men problemet er fremdeles det samme. Alle temperaturer er normale (cpu under 45 grader)

     

    Noen som har peiling på hva som kan være feil her? Alle drivere er oppdatert. Bios er nyeste versjon(nei, jeg har ikke oppdatert den). Jeg tenker at det må være et eller annet som svikter på hovedkortet.

  5. Som Geir er inne på kan du bruke windows egen search funksjon til å søke igjennom filene (så lenge disse er i et format windows gjenkjenner).. Bruker du windows xp går du på start meny->søk åsså velger du at du skal søke i teksten til filer.

     

    I Vista er det litt annerledes. Her navigerer du deg til mappen der filene ligger og så bruker du søkefeltet oppe i høyre hjørne. skriv inn copyright. da vil du sannsynligvis få opp null treff. Trykk da på "search in file contents" (kanskje "søk i filinnhold" på norsk :) )

     

     

    nå vet du hvilken fil det ligger i og kan gå inn i denne, søke med notisblokk og fjerne det.

  6. Det neste logiske steget vil vel være å forenkle koden noe. Ingen vits i å gjenta alle de inputbokskommandoene

     

     

     

    On Error Resume Next
    
    IsIpSet = false
    
    
    
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
    
    For Each objItem In colItems
    For Each objValue In objItem.IPAddress
    If objValue <> "" and Instr(objValue, ":") = 0 Then
    
    isIpSet = true
    
    Select Case Left(objValue, 7)
    
    Case "192.168": Message = "Du er koblet til et privat nettverk."
    
    Case "169.254": Message = "Du har ingen tilkobling."
    
    Case "10.216.": Message = "Du er koblet til hovednettet."
    
    Case "10.217.": Message = "Du er koblet til hovednettet via VPN." 
    
    Case Else: Message = "Nettverket du er koblet til gjenkjennes ikke."
    
    
    End select
    
    
    
    InputBox vbcrlf & Message & vbcrlf & "Din IP-adresse er:" &  objValue & _
              vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
              "(Trykk Ctrl + C for å kopiere IP-adressen)", _
              "Finn min IP-adresse", objValue
    
    
    
    End If
    Next
    Next
    
    if IsIpSet = false Then  ' Ingen ip ble funnet
    
    Msgbox "Det ble ikke funnet noen ip"
    
    End if
    
    

  7. Hei!

     

    Her er mitt forslag som ser ut til å fungere. Det bruker WMI for å gå igjennom nettverkskort i systemet. Har du f.eks to nettverkskort vil det dukke opp 2 inputbokser.

     

     

     

    ----- Kode

     

     

    On Error Resume Next

     

    IsIpSet = false

     

     

     

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")

     

    For Each objItem In colItems

    For Each objValue In objItem.IPAddress

    If objValue <> "" and Instr(objValue, ":") = 0 Then

     

    isIpSet = true

     

    Select Case Left(objValue, 7)

     

    Case "192.168"

     

     

    InputBox vbcrlf & "Du er koblet til et privat nettverk." & vbcrlf & "Din IP-adresse er:" & objValue & _

    vbcrlf & vbcrlf & vbcrlf & vbcrlf & _

    "(Trykk Ctrl + C for å kopiere IP-adressen)", _

    "Finn min IP-adresse", objValue

     

    Case "169.254"

     

     

    InputBox vbcrlf & "Du har ingen tilkobling." & vbcrlf & "Din IP-adresse er:" & objValue & _

    vbcrlf & vbcrlf & vbcrlf & vbcrlf & _

    "(Trykk Ctrl + C for å kopiere IP-adressen)", _

    "Finn min IP-adresse", objValue

     

    Case "10.216."

     

    InputBox vbcrlf & "Du er koblet til hovednettet." & vbcrlf & "Din IP-adresse er:" & objValue & _

    vbcrlf & vbcrlf & vbcrlf & vbcrlf & _

    "(Trykk Ctrl + C for å kopiere IP-adressen)", _

    "Finn min IP-adresse", objValue

     

    Case "10.217."

     

    InputBox vbcrlf & "Du er koblet til hovednettet via VPN." & vbcrlf & "Din IP-adresse er:" & objValue & _

    vbcrlf & vbcrlf & vbcrlf & vbcrlf & _

    "(Trykk Ctrl + C for å kopiere IP-adressen)", _

    "Finn min IP-adresse", objValue

     

     

    Case Else

     

    InputBox vbcrlf & "Nettverket du er koblet til gjenkjennes ikke." & vbcrlf & "Din IP-adresse er:" & objValue & _

    vbcrlf & vbcrlf & vbcrlf & vbcrlf & _

    "(Trykk Ctrl + C for å kopiere IP-adressen)", _

    "Finn min IP-adresse", objValue

     

    End select

     

    End If

    Next

    Next

     

    if IsIpSet = false Then ' Ingen ip ble funnet

     

    Msgbox "Det ble ikke funnet noen ip"

     

    End if

     

     

    -----------------------------------

     

     

    Et par notater.

     

    If objValue <> "" and Instr(objValue, ":") = 0 Then

     

    Her bruker jeg AND Instr(objValue,":") = 0 for å filtrere bort ipv6 som vista gir meg. Den kan du fjerne hvis du vil ha med det.

     

    Du kan bruke objItem.MACAddress for å få macaddressen til nettverkskortet som har ip'en.

  8. Hei og God jul !

     

     

    Det du har der ser jo ut til å fungere innenfor en arbeidsbok

     

    --------------------------

    Dim olddoc As Workbook

     

    Set olddoc = Workbooks.Open("c:\bok1.xlsm")

     

    olddoc.Worksheets("Ark1").Range("B3:C4").Copy _

    Destination:=Worksheets("Ark1").Range("B3")

     

    Set olddoc = Nothing

     

    --------------------------

     

    Det fungerte hos meg med excel 2007 der den gamle boka ligger i c:\

×
×
  • Opprett ny...